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IDENTIFICATION 


PRODUCT CODE: AC-T106A-MC 

PRODUCT NAME: CZRNBAO RM80 DISKLESS TEST, PT 1 
PRODUCT DATE: APRIL 1, 1982 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE __CONSTRUED AS A_ COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
3577 teal OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RM80 DISKLESS DIAGNOSTIC_IS A STAND ALONE PROGRAM WHICH USES 
FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE grenneitity OF THE RM80 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE E 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RH70 MASSBUS CONTROLLER; 

TO DETECT ERRORS AND FAULTS IN THE RM80 MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN THE RM80 TO A FIELD REPLACEABLE 
MODULE OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RM80_ DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE RH70 MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED T 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RM80 DISKLESS 

DIAGNOSTIC: 
PDP-11/70 PROCESSOR 
20K 


Y 
KW11-L OF .W11-P CLO 
PROGRAM LOADING Device 


TERM 
wr CONTROLLER 
0 8 RM80 Disk DRIVES 
2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
NONE 


3.0 OPERATING PROCEDURE 


SEQ 0003 
STORA <. MODUL 
E 
O BE 
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3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
“XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 


SwW15 HALT ON ERROR 
SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SwW13 INHIBIT ERROR TYPEOUTS 


Swi2 UNUSED 
SwW11 INHIBIT TEST ITERATIONS 
$w10 BELL ON ERROR 


Sw09 LOOP ON ERROR 
Sw08 LOOP ON TEST IN SW07-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON. 


3.3 STARTING 
THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 hes BE THE NORMAL sw x ADDRESS. STARTING AT 264 WILL ENABLE 
ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 


THE _RH/RM a 
ENVIRONMENT, THE PROGRAM Uses CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 


3.4 HALTING 
THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


3.5 RESTARTING 


THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 
THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 





F 
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IS STARTED AFTER BEING LOADED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 


ed ed ed ed ed 
SoOMNAwn 


PROGRAM wt Ag BRIEF 


LP MESSAGE WHICH 4 OTHER 
TO THE QUESTION IS CONSIDERED A ‘N'' AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 


rmronororyrn 
Culwn— 


won 


le ee ed ed ed ed ed ed dd 
Nm 


30 

31 ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
32 THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
a7 DIALOGUE. 
132 EXAMPLE 1 
137 RMCS1=176700 <CR> ZNO CHANGE IN ADDRESS 

is RMVEC=000254 <CR> NO CHANGE IN ADDRESS 
140 EXAMPLE 2 
142 RMCS1=176700 177200<CR> ; CHANGE BASE ADDRESS TO 177200 

17 RMVEC=000254 260<CR> CHANGE VECTOR ADDRESS TO 260 

145 ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ‘TYPE ‘‘A’’ TO 
146 TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
147 A CARRIAGE RETURN’. THEN, "DRIVE(S):* IS TYPED AND WAITS FOR THE 
148 RATOR TO TYPE AN ‘‘A’’, TO L POSS DRIVES OR TYP Y 
149 STRING "F DRIVE NUMBER ($5 TO BE TESTED AND TERMINATE THE INPUT WITH A 
150 “CARRIAGE RETURN’. OMMAS OR ANY OTH E TORS ARE NEEDED WHEN 
151 ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
152 SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
ie? STARTS, ONLY THE "DRIVE(S):° PROMPT IS TYPED. 

155 THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
156 DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
14 IS AN EXAMPLE PRINTOUT: 

159 "UNIT STATUS: 

160 0 ONLINE RM80 

161 if] DEVICE 

162 ; OFFLINE RM8O 

163 PRESENT 

164 4 NOT PRESENT 

165 5 NOT AN RM80 

166 § NOT PRESENT 

160 NOT PRESENT’ 

169 THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED, WHILE DRIVES 
10 1, & 3 - 7 WILL NOT BE TESTED. 


G 1 
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17 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
12? STATUS OF THE DRIVE: 

129 "DRIVE(S) TO BE TESTED, 0, 2° 

177 IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
178 TYPED TO THE OPERATOR: 

180 "DRIVE(S) TO BE TESTED, NONE’ 

182 THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
183 TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

185 ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
186 AS EACH DRIVE BEGINS TO BE TESTED: 

188 "DRIVE 0 

18% DRIVE 2° 

191 AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 

192 MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
193 TESTING ALL THE DRIVES AGAIN. THIS uit CONTINGE UNTIL THE PROGRAM 
194 IS HALTED BY THE OPERATOR. 

196 NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
197 OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AN 

198 L=LETTER. 

199 

200 

201 4.3 PROGRESS REPORTS 

203 AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS_ EXECUTED 
ope FOR Pi DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 
206 "END OF PASS 1" 

208 THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
sd THE LAST END OF PASS REPORT. 

ai "TOTAL ERRORS SINCE LAST REPORT 0° 

213 

i4 4.4 PERFORMANCE REPORT 

16 nll? PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
218 : 

219 

220 

21 4.5 PROGRAM HALTS 

223 THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
$e PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 

226 

227 


228 4.6 ERROR REPORTS 
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THE RM8O DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 

THE FIRST LINE OF THE ERROR REPORT CONTA THE NUMBER OF THE 


UNIT yet fg BEING pesieee DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VAL a Te CRROA COUNTER WHERE THE ERROR WAS CALLED. 


N DER DECREA PROBABILITY. THE ERROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA eee 
AND DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 
RESULTS. 

THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS FROGRAM: 
#0 - RM8O, TEST# 25, ERR# 66, PC=017566 
ILLEGAL “REGISTER ERROR “ILR'’ (RMER1, BIT 01) SHOULD BE SET 
DURING aoarare Poo ANSFER 


AULT(S): 
(NOT INCLUDING CABLES OR CONNECTORS) 
IF MODULE, M7686, 


EXPCTD RECEVD 5 


STATUS STATUS REGS 
000002 000000 15750 


4.7 EXECUTION TIME 
PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 60 SECONDS. 
5.0 NVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 


THE RM8O DISKLESS DIAGNOSTIC IS EXECUTABLE ON A PDP-11/70 
ete PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONFIGURATIONS 
THE RM80 DISKLESS DIAGNOSTIC IS NOT Be tte + ON RM80 SUBSYSTEMS 


HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS aT TO 
SP ae APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION 


5.3 MEMORY PARITY HARDWARE 


SEQ 0007 
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MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMaO DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RM80 
DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 
RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 
AND AUTOMAT PROG WI 


AND APT11 _IN BOTH DUMP IC MODES. FURTHER, THE L 
3 ald A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP 
IN DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 


ersten PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 


6.0 TEST DESCRIPTION 


THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
ear USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED A. THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE ‘'RM80 DISKLES DIAGNOSTIC’’ CAN BE EXECUTED USING AN RH70 
MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


SEQ 0008 
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MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TEST 1 TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE RM80 CAN COMPLETE A REGISTER TRANSFER 
ON THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER*’ IS 
NOT STUCK IN AN INACTIVE STATE. 


PROCEDURE : 


THE PROGRAM WRITES AND READS REMOTE ort yt a FOR THE 
SELECTED gp ityr a tee CON ONTENTS AND PARITY ERRORS ARE 
IGNOR THE TEST FAILS IF A “NONEXISTENT DEVICE E 
BUS TIMEOUT OCCURRS 4° EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 


PROBABLE FAULT: 


THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT 


utilantutuata iltyglgs 


AWG 
wun VIVILAUIVI 
EERE RARAAAAAAARE LE LER 


SESE. 


THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE 1S 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 


1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 
3. CS MODULE 


2 CTOD TEST 
PURPOSE : 


TO VERIFY THAT DATA CAN BE_ TRANSFERRED TO AND FROM THE 
RM80_ USING THE CONTROL BUS oe IN PARTICULAR, TO VERIFY THAT 
RCONTROLLER TO DEVICE’ HAS NOT FAILED. 


PROCEDURE : 


THE TEST WRITES ONES IN REMOTE REGISTERS THEN wis 
Beets! ER WHICH WILL WRITE ZEROS IN THE REGISTER IF “*IF3 CTOD HOLD 

STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 
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TEST 


TEST 


PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


3 MASSBUS INITIALIZE TEST 
PURPOSE : 


TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 


PROCEDURE : 
USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED alo THIS 

TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 

ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 
PROBABLE FAULT: 
1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 


3. CS MODULE 


4 CLEAR STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT ‘MBA CLR L** ON THE CS MODULE IS NOT STUCK IN 
AN ACTIVE STATE. 


PROCEDURE : 

CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED IT, 
AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK, ELSE, ‘MBA CLR L'’ IS PROBABLY STUCK ACTIVE. 

PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


3. ASYNCHRONOUS MASSBUS MODULE 


SEQ 0010 


















SEQ 0011 
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460 

461 

486 TEST 5 TRISTATE TRANSFER TEST 

rr ¢} PURPOSE : 

466 TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 
467 TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
re BIT POSITION IS INDEPENDENT. 

9 PROCEDURE : 

472 THIS TEST pos ty A MASSBUS ADAPTER REGISTERS TO NONZERO 
473 VALUE, THEN, ASSUMING THE ng the ARE PRESET, IT CLEARS THEM 
474 USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
475 AS IS NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 


476 POSITION. 


477 

478 THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
479 THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
480 MANY ate Rcit AS = NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
ret EACH BIT POSITION 

483 FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 
484 OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
485 READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
786 BIT POSITIONS. 


PROBABLE FAULT: 

1. ASYNCHRONOUS MASSBUS MODULE 
2. IF MODULE 

3. CS MODULE 

4. DS MODULE 














6 REGISTER SELECT TEST 
PURPOSE : 


TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A STUCK 
POSITION. 


PROCEDURE: 








510 

511 EACH REGISTER seLeet LINE IS_ TESTED BY WRITING ZEROS IN 
512 DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN 
513 WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE 
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ONE. THE ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS 
STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES. THE PROCE 
IS REPEATED fO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE, 
THE ONES REGISTER IS WRITTEN FIRST. 

REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN THIS 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE "ILR TEST". 


PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


7 DRIVE TYPE TEST 
PURPOSE : 

TO TEST THE ‘DRIVE TYPE’’ REGISTER, RMDT. 
PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES THAT THE 
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RM80 DRIVE. 


PROBABLE FAULT: 
1. IF MODULE 


10 DEVICE AVAILABLE TEST 
PURPOSE : 

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 

THE PROGRAM TESTS ‘‘DVA’', BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 


TEST 11 HOLDING REGISTER TRANSFER TEST 
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ria PURPOSE : 

3f8 TO_ VERIFY THAT THE HOLDING REGISTER IS NOT STUCK AT ONE, 
are STUCK AT ZERO, AND THAT THERE IS NO BIT INTERFERENCE. 

Hi PROCEDURE : 

57. THE PROGRAM TRANSFERS ONES, THEN ZEROS TO THE HOLDING 
te 4 REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 

ay THE PROGRAM TRANSFERS ZEROS, THEN ONES TO THE HOLDING 
266 REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO. 
584 FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT PATTERN AND 
oH VERIFIES THAT EACH BIT IS INDEPENDENT. 

rth PROBABLE FAULT: 

589 1. IF MODULE 

590 

591 

59 

: 

302 TEST 12 CONTROL STATUS #1 TRANSFER TEST 

dA PURPOSE : 

599 TO VERIFY THAT BITS Aa THROUGH 05 OF CONTROL STATUS REGISTER 
600 1 ARE NOT STUCK AT OR ZERO, AND THAT THERE IS NOT BIT 
oh INTERFERENCE. 

a PROCEDURE : 

605 THIS TEST WRITES ONES IN CONTROL STATUS REGISTER 1, RMCS1 
a6 THEN WRITES ZEROS AND VERIFIES THAT THE BITS ARE NOT STUCK AT 
oN ONE. THE GO BIT IS NOT TESTED IN THIS TEST. 

609 NEXT, THE TEST CLEARS THE CONTROL srarys REGISTER, RMCS1. 
610 WRITES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE 
$13 NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED. 

a8 THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO AND 
$i% FROM RMCS1 AND CHECKS FOR ADJACEN’ BIT INTERFERENCE. 

618 PROBABLE FAULT: 

ol8 1. IF MODULE 

61 


TEST 13 ERROR REGISTER #1 TRANSFER TEST 
PURPOSE : 


RESELLER 
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TEST 


TEST 


TO VERIFY THAT E 
AND THAT THERE IS NOT BIT 


PROCEDURE : 

THIS TEST WRITES ONES IN ERROR REGISTER 1, RMER1, THEN 
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE. 
UNSAFE’ IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT TH 
PROBABLE FAULTS TO ONE OR TWO MODULES, THE TEST IS EXECUTED IN 


PARTS WITH EACH PART TESTING THOSE BITS WHOSE PRESET FUNCTIONS 
ARE DERIVED FROM THE SAME MODULE. 


THE TEST WRITES ZEROS IN ERROR REGISTER 1, RMER1, THEN 
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1 
AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


RROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO, 
INTERFERENCE. 


14 CLEAR OFFSET STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET MODE IS NOT 
STUCK IN ACTIVE STATE. 


PROCEDURE : 


THE TEST WRITES A ONE IN THE OFFSET DIRECTION BIT WHICH IS 
CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


15 OFFSET REGISTER TRANSFER TEST 
PURPOSE : 


SEQ 0014 
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TO_VERIFY THAT THE OFFSET REGISTER IS NOT STUCK AT _ ONE, 
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE. 


PROCEDURE : 


THE OFFSET REGISTER, RMOF, IS WRITTEN WITH ONES, THEN 
WRITTEN WITH ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE 


_ STUCK AT ONE. 


TEST 


THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS AND WRITTEN 
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE OFFSET REGISTER IS TESTED WITH A SHIFTING ONE 
BIT PATTERN. 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


16 ERROR REGISTER #2 TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT ERROR REGISTER 2, NOT STUCK AT 
ONE, STUCK AT ZERO, AND THAT THERE 1S NOT Or eit INTERFERENCE. 


PROCEDURE: 

,s TEST WRITES ONES THEN WRITES ZEROS IN RMER2 AND VERIFIES 

NONE OF THE BITS ARE STUCK AT ONE. ‘‘SKI'* Mw *“DVC’’ ARE NOT 
TESTED. IN ORDER TO LIMIT THE NUMBER OF PROBABLE FAULT § TO ONE 
OR TWO MODULES THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART 
TESTING THOSE BITS WHOSE PRESET FUNCTIONS ARE DERIVED FROM THE 
SAME MODULE. 

THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2, AND WRITES 
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN THE 
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT. 


PROBABLE FAULT: 
- IF MODULE 
2. CS MODULE 
3. DS MODULE 


a 
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fe 
ore TEST 17 SERIAL NUMBER TEST 
rs PURPOSE : 
643 TO VERIFY THAT THE SERIAL NUMBER CAN BE READ. 
£30 PROCEDURE : 
752 THE TEST READS THE SERIAL NUMBER REGISTER SEVERAL TIMES AND 
ie}, VERIFIES THAT THE NUMBER IS THE SAME EACH TIME. 
£3? PROBABLE FAULT: 
757 1. (CS MODULE 
758 
759 
760 
762 
6; TEST 20 CONTROL BUS PARITY DETECTION TEST 
oe? PURPOSE : 
767 TO TEST THE RM80'S PARITY CHECKING LOGIC FOR THE MASSBUS 
ree ASYNCHRONOUS CONTROL BUS. 
ha PROCEDURE : 
772 THIS TEST WRITES A SHIFTING ONE BIT DATA PATTERN IN THE DISK 
773 ADDRESS ae USING *PAT'’ TO CONTROL THE STATE OF THE PARITY 
774 T. ‘PAR’ STATUS, BIT 03 RMER1, IS CHECKED AFTER EACH 
775 PATTERN IS TRANSFERRED. .NOTE THE FOLLOWING TABLE SHOWS A SET OF 
76 tM dae THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT 
778 
has DATA PATTERN PAT PAR 
781 000000 1 1 
782 07526 0 0 
783 16375 0 0 
ree 116535 1 1 
res PROBABLE FAULT: 
res 1. IF MODULE 
790 2. ASSYNCHRONOUS MASSBUS MODULE 


TEST 21 CONTROL BUS PARITY GENERATION TEST 


PURPOSE : 












E 
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799 

800 TO. TEST THE a7 . PARITY GENERATING LOGIC FOR THE MASSBUS 
op ASYNCHRONOUS CONTROL BU 

B08 PROCEDURE : 

805 THE TEST TRANSFEKS A SHIFTING ONE BIT DATA PATTERN TO THE 
806 DISK ADDRESS REGISTER. AFTER EACH PATTERN IS READ BACK, ‘MASSBUS 
807 CONTROL BUS PARITY ERROR’ IS TESTED AND SHOULD JE ZERO..NOTE THE 
808 FOLLOWING SET OF L$ PATTERNS COULD BE USED INSTEAD OF THE 
Bre SHIFTING ONE BIT PATTERN. 

ai) DATA PATTERN MCPE 

813 000000 0 

814 056747 0 

815 13567 0 

sig 16313 0 

sig PROBABLE FAULT: 

ast 1. IF MODULE 

556 2. ASYNCHRONOUS MASSBUS MODULE 

824 





TEST 22 RMDA, RMDC FAULT TEST 
PURPOSE : 


TO oo THAT THERE ARE NOT FAULTS WHICH INHIBIT THE 
PROGRAM FROM WRITING RMDC AND RMDA. SPECIFICALLY, THESE FAULTS 


INCLUDE: 

-"'GO H'’ STUCK HIGH, WHICH WOULD INHIBIT THE REGISTER LOAD 
FUNCTION, 

-"RIP L*’ STUCK LOW, WHICH WOULD CONSTANTLY CLEAR THE 
REGISTER 

-"EBL'* STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION. 
PROCE. RE: 

THE TEST WRITES AND READS BOTH RM AND RMDA. WITH ZEROS, 
THEN ONES. THE TEST PASSES IF EITHER REGISTER CAN BE WRITTEN 
WITH ONES. 
PROBABLE FAULT: 
1. DS MODULE 


2. IF MODULE 








F 2 
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856 3. CS MODULE 

857 

858 

859 

Bet 

86 TEST 23 DISK ADDRESS TRANSFER TEST 

B64 PURPOSE : 

866 70 VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE 
867 OR ZERO, AND THAT THERE 1S NOT BIT INTERFERENCE. 

869 PROCEDURE: 

871 THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE, THEN 
872 USES A MOVE TO CLEAR TNE REGISTER. THE TEST THEN READS RMDA 

873 VERIFIES THAT NONE OF THE BiTS ARE STUCK AT ONE. 

875 THEN THE TEST PRECLEARS THE MASSBUS ADAPTER DISK ADDRESS 
876 REGISTER (RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF 

877 THE BITS ARE STUCK AT ZERO. 

879 A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE 
880 DISK ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT 
881 IS INDEPENDENT. 

883 PROBABLE FAULT: 

885 1. DS MODULE 

886 

887 2. IF MODULE 

888 

889 

890 

i 

B95 TEST 24 DESIRED CYLINDER TRANSFER TEST 

895 PURPOSE: 

897 TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER, 

898 IS NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT voit 
899 INTERFERENCE. 

901 PROCEDURE: 

903 THIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC 

204 THEN WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 
906 | . 

907 THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER 

908 RMDC WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK Af 
910 7 

911 FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM 
912 RMDC AND THE * PROGRAM CHECKS FOR BIT INTERFERENCE. 





G 2 
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913 
ae PROBABLE FAULT: 
916 1. DS MODULE 
917 
918 2. IF MODULE 
919 
920 
921 
922 
923 
3S¢ TEST 25 ILLEGAL REGISTER TEST 
958 PURPOSE : 
399 TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RM80. 
eet PROCEDURE : 
932 THIS TEST READS ALL LEGAL 3 hd Bay VERIFIES THAT ‘‘ILR*’ 
933 BIT 2 OF RMER1 DOES NOT SET. THEN, TO THE EXTENT ALLOWED BY THE 
934 MASSBUS CONTROLLER, IT READS ILLEGAL REGISTERS AND VERIFIES THAT 
See “ILR" IS SET. 
oee PROBABLE FAULT: 
O44 1. IF MODULE 
Ft 2. ASSYNCHRONOUS MASSBUS MODULE 
943 
944 
945 
946 
of TEST 26 RESET GO BY INIT TEST 
rH PURPOSE : 
335 TO VERIFY THAT GO CAN BE RESET BY INITIALIZE. 
os? PROCEDURE : 
955 THE TEST SETS GO THEN CLEARS GO USING MASSBUS INITIALIZE, 
328 1.€., CONTROLLER CLEAR. 
238 PROBABLE FAULT: 
aot 1. CS MODULE 
962 2. IF MODULE 
963 
964 
965 
966 
967 
968 TEST 27 DIAGNOSTIC MODE TEST 


TO VERIFY THAT "MEDIUM ON LINE’’ STATUS CAN BE SET AND RESET 


H 2 
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gre PURPOSE : 
97 TO VERIFY THAT "DIAGNOSTIC MODE’, BIT 0 OF RMMRI, IS NOT 
oe STUCK AT ONE OR ZERO. 
oe PROCEDURE : 
977 THE RM8O IS INITIALIZED AND ‘DMD'* IS CHECKED FOR ZERO. 
978 *DMD'’ IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK 
4 at Lute at one ag WRITTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT 
981 
one PROBABLE FAUL7: 
984 1. CS MODULE 
985 
986 2. IF MODULE 
987 
988 
989 
990 
991 
992 TEST 30 MOL TEST 
993 
994 PURPOSE : 
995 
996 
997 


S8SS33 


SESSSRES 


OUSWN—o 


ee De eB ee eh ed ek td ts se 8 a 
Rt Ps ett 


Peeeessssess 
-—O Con 


S 
aw 


TEST 


USi"'G MAINTENANCE UNIT READY. 
PROCEDURE : 

AFTER a et HE SUBSYSTEM, THE TEST SETS Bs eg hy 
MODE: _ AND READS THE DRIVE STATUS REGISTER 7, RMDS. EXPECTING MOL, 
BIT 12 TO BE ZERO. ‘MAINTENANCE UNIT READY’, BIT 9 OF RMA IS 
SET AND MOL LD BE ONE. THE TEST THEN “WRITES A ZERO IN MUR 
AND READS RMDS, VERIFYING THAT "MEDIUM ON LINE’ IS ZERO. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


31 WRITE LOCK TEST 
PURPOSE : 


TO VERIFY THAT “WRITE LOCK’ STATUS, WRL, CAN BE SET AND 
RESET USING ‘MAINTENANCE WRITE PROTECT'’, MuP. 


PROCEDURE : 
WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MwP, BIT O03 OF 
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AND READS RMDS TO VERIFY THAT WRL, BIT 11 IS SET. 


AND "UNSAFE*’, 


WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF 
AND READS RMER3 TO VERIFY THAT DVC, BIT 07 I 


THE TEST SETS MSER 
FY THAT SKI, BIT 14 IS 


1027 RMMR1 

1028 MWP 1S RESET AND WRL SHOULD BE ZERO. 
1030 PROBABLE FAULT: 

103¢ 1. CS MODULE 

103 

1034 2. IF MODULE 

1035 

1036 

1037 

1038 

1039 

1049 TEST 32 DRIVE FAULT TEST 

Hh ok PURPOSE: 

1044 TO VERIFY THAT “DEVICE CHECK’ 
1049 BE SET AND RESET USING ‘MAINTENANC 
1047 PROCEDURE : 

1048 

1980 

1051 ALSO READ AND UNS, BIT 14 SHOULD ALSO BE SET. 
105¢ AND DVC AND UNS SHOULD BE RESET. 
1054 PROBABLE FAULT: 

1055 

1056 1. (CS MODULE 

1057 

1058 2. IF MODULE 

1059 

1050 

1061 

1062 

1063 

1064 TEST 33 SEEK ERROR TEST 

1066 PURPOSE: 

1067 

1068 e te 

1069 MAINTENANCE SEEK ERROR’, MSER. 
1071 PROCEDURE : 

1998 WITH DIAGNOSTIC MODE SET 
1074 RMMR1 AND READS RMER3 TO VERI 
1079 RESET AND SKI SHOULD RESET. 

1077 PROBABLE FAULT: 

1078 

1079 1. CS MODULE 

1080 

1081 2. IF MODULE 

1082 

108 


THEN 


<AN 


06 OF 
§ SET RMER1 IS 
THEN MDF IS RESET 


TO VERIFY THAT “‘SEEK ERROR", SKI, CAN BE SET AND RESET USING 


BIT 07 OF 
MSER IS 





SEQ 0021 
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TEST 34 PIP TEST 
PURPOSE : 


TO VERIFY THAT ‘POSITIONING IN PROGRESS’’, PIP, CAN BE SET 
AND RESET USING ‘MAINTENANCE ON CYLINDER’', MOC. 


PROCEDURE : 


DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMRI IS SET AND 
PIP, BIT 13 OF RMDS, SHOULD BE ZERO. MOC IS THEN RESET AND PIP 


eaegaseseessesse 


a ee ee ee ee ee ee ee ey 


SHOULD BE ONE. 
1s PROBABLE FAULT: 
102 1. CS MODULE 
103 
104 2. IF MODULE 
105 
106 
107 
108 
1109 
1119 TEST 35 EBL TEST 
116 PURPOSE : 
1114 TO VERIFY THAT END OF BLOCK STATUS ‘‘EBL'* CAN BE SET AND 
Wt? RESET USING DIAGNOSTIC END OF BLOCK ‘DEBL"’. 
We PROCEDURE : 
1119 THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES THAT EBL IS 
1120 RESET. THEN IT SETS DEBL_AND VERIFIES THAT EBL IS SET. FINALLY, 
1121 THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMR1, AND CHECKS FOR 
1156 DEBL BEING SET BY AN ADJACENT BIT. 
\ig8 PROBABLE FAULT: 
1126 1. CS MODULE 
1127 
1128 
1129 
i 
N35 TEST 36 LAST SECTOR, LAST TRACK TEST 
Hs} PURPOSE : 
1136 TO VERIFY THE DESIRED TRACK/SECTOR PLA ON THE DS MODULE 
EA USING RMMR1, BITS 01 AND 02. 
1139 PROCEDURE : 
1140 


kK 2 
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THE TEST WRITES ALL POSSIBLE PATTERNS JN THE DISK ADDRESS 
REGISTER, _RMD RIFIES ‘LS"' AND "LST’’ STATUS FOR EACH 
PATTERN. THE PROCEDURE IS DONE ONCE FOR 18 BIT FORMAT, ONCE FOR 
16 BIT FORMAT AND ONCE FOR 16 BIT FORMAT WITH ‘'SSEI"’ SET. 
PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 


TEST 37 RMDA COUNT TEST 
PURPOSE : 
mA seesthi THAT THE DISK ADDRESS REGISTER (RMDA) INCREMENTS 


WOONAUE WN $0 OONOUS Wh 


PROP 
PROCEDURE : 
THE TEST INCREMENTS RMDA USING DIAGNOSTIC END OF BLOCK 


me ee ee ee ek ed td et td od od = = td = od 2 2 
SEPP OS DES eS OPESE 
MWPWN 


ee ee ee eee ce ee me me ee ee ee ee a ce a ee ce ee ce ce ce ed ed ee ed ee ed ceed ed ed eed 


166 “DEBL'’ AND VERIFIES THE RESULT IN 18 BIT FORMAT, 16 BIT FORMAT 
4 AND 16 BIT FORMAT WITH ‘'SSEI"’ SET. 

4 PROBABLE FAULT: 

171 1. DS MODULE 

172 

173 

174 

175 

176 

bE 4 TEST 40 RMDC COUNT TEST 

Ta PURPOSE : 

1181 TO VERIFY THAT THE DESIRED CYLINDER REGISTER,  RMDC, 
18 INCREMENTS PROPERLY. 

ee PROCEDURE : 

1186 THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END OF _ BLOCK 
1187 DEBL'', AND VERIFIES THE RESULT IN 18 BIT FORMAT, 16 BIT FORMAT 
1133 AND 16 BIT FORMAT WITH *’SSEI"* SET. 

+ PROBABLE FAULT: 

1136 1. DS MODULE 

119. 

1194 

1195 

1196 

1197 
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1198 TEST 41 LBT TEST 
1199 

1200 PURPOSE : 
1201 

120 

120 

1204 

fst PROCEDURE : 
2 


SOUS 


RMDA TO RESET LBT. 
BI 
PROBABLE FAULT: 


1. DS MODULE 
2. IF MODULE 


PURPOSE : 


PROCEDURE: 


ee ee ere ee ee ee eee 
PORQPOPOPONINOPYNINIDIPINININININININININPIN NNN 


WRINONOPOPINININNID 2 2 2 Se 


TO INSURE THAT LAST BLOCK 


“LBT’’, CLEARS WHEN 
RMDA IS WRITTEN, AND SETS WHEN THE LAS 


THE TEST USES DIAGNOSTIC EBL TO SE 
THE RESULTS ARE VER 
T FORMAT AND 16 BIT FORMAT WITH ‘‘SSEI"’ SE 


AND TRANSFERS TO 
JFIED"IN 18 BIT FORMAT, 16 


TEST 42 COMPOSITE ERROR TEST 
TO TEST ‘‘COMPOSITE ERROR'’, BIT 14 OF RMDS. 


THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE 
ERRORS TO ZERO THEN VERIFIES THAT "ERR" IS ZERO. 
INDIVIDUALLY SET AND ‘‘ERR"’ SHOULD BE ONE FOR EVERY ERR 
ADDRESSES #2 AND #17 OF TH 


$0 NOT T 
TEST FAILS IF ERR IS NOT ZERO WITH ALL SET ARGUMENTS 


ieee ORT’* AND “EXCEPTION 

1536 ERR IS NOT ONE WITH ANY SET ARGUMENT ONE. 
1238 PROBABLE FAULT: 

1239 

1240 1. IF MODULE 

1241 

1242 

1243 

1244 

1245 

1246 TEST 43 WRITE GO TEST 

1247 

1248 PURPOSE : 

1249 

1530 TO VERIFY THAT GO CAN BE SET. 
1252 PROCEDURE : 

1253 

1254 


THE TEST ENABLES THE DEBUG CLOCK, THEN TRANSFERS A NOP 


SEQ 0024 
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PURPOSE : 


PROCEDURE : 


VAARANASSRIEAF 


kk dd od a 
PUES pA a gh tet 
co 


2 


FUNCTION CODE AND GO BIT TO RMCS1, VERIFYING THAT GO SETS. 


1255 

1528 FUNCTION CODES ARE TESTED. 
: 23 PROBABLE FAULT: 

, rs 1. IF MODULE 

1666 2. CS MODULE 

126 

12 

12 

12 

12 


TEST 44 BRANCH MULTIPLEXOR TEST 


TO VERIFY THAT THE OUTPUT OF THE COMMAND SEQUENCER BRANCH 
MULTIPLEXOR DOES NOT HAVE A FAULT. 


WITH DEBUG CLOCK ENABLED, THE TEST USES VARIOUS FUNCTION 
CODES ant REGISTER CONDITIONS TO ADDRESS THE TEST BIT MULTIPLEXOR 
CAN BE CHECKED FOR 


TO VERIFY THAT GO CAN BE SET AND RESET. 


ANNOT BE RESET 


79 SUCH T THE TEST BIT, BIT12 OF RMMR2, 
ise STUCK TPAULT. 
1282 PROBABLE FAULT: 
1283 
1284 1. CS MODULE 
1285 
1286 
1287 
1288 
1289 
1 TEST 45 SET/RESET GO TEST 
Io PURPOSE : 
129 
1294 
1295 
1296 PROCEDURE : 
1297 
1298 y THE SUBSYSTEM IS INITIA 
1299 arte CLOCK ENABLE’, BIT 
1300 E WRITTEN IN RMCS1 AND Hy ties 
1301 IS I 
1306 
130. VERIFIES THAT ° 
130e THAT RESETS GO “. A DIFFERENT 
1306 
1307 
1308 PROBABLE FAULT: 
1309 
1310 1. CS MODULE 
1311 


LIZED AND PUT_IN DIAGNOSTIC MODE WITH 
OF RMMR1 SET. oe rei CODES 


READS RMCS1 TO VER 
TO VERIFY THAT “DRY” IS RESET. 
15 OF RAMA AND 
USING A FUNCTION COD 
THE TEST FAILS IF GO 
DOES NOT $ y COMMAND SEQUENCER. THE 
TEST ALSO FAILS IF “DRIVE READY’ IS NOT THE COMPLIMENT OF GO. 





SEQ 0025 
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1312 2. IF MODULE 
131 
1314 
1315 
1319 
1 18 TEST 46 END 1 RESET GO TEST 
i 20 PURPOSE : 
1322 TO VERIFY THAT THE COMMAND SEQUENCER CAN RESET GO AT THE 
} 3 END1 LOCATION. 
1335 PROCEDURE : 
1397 THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION CODE 
1328 32 IN DIA IC MODE AND VERIFIES THAT GO RESETS ON THE 
1329 SPECIFIED CLOCK CYCLE. 
1331 PROBABLE FAULT: 
1332 
1333 1. CS MODULE 
1334 
1335 
1336 
1337 
1338 
1339 
1340 TEST 47 SET PULSE TEST 
1342 . PURPOSE : 
1344 TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE. 
1346 PROCEDURE: 
1348 WITH DEBUG CLOCK ENABLED, THE TEST STEPS THE COMMAND 
1349 SEQUENCER THROUGH PARTS OF VARIOUS FUNCTION CODES AND CHECKS 
1350 CONTINUE, BIT 06 OF RMMR1 TO DETERMINE IF SET PULSE IS BEING 
1351 GENERATED. 
1353 PROBABLE FAULT: 
. 1326 1. CS MODULE 
1356 : 
1357 
1358 
1359 
1360 
1 4 TEST 50 SET/RESET IVC TEST 
130? PURPOSE : 
1366 TO TEST ‘“‘INVALID COMMAND’’ STATUS FOR EACH FUNCTION CODE. 
13é PROCEDURE: 
1368 





SEQ 0026 


CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-24 


3 


THE PROGRAM RESETS VOLUME VALID USING 
THEN LOADS THE FUNCTION CODE 
— IS TESTED AND “IVC, BIT 12 


“LOSS OF SYSTEM CLOCK’’ 


THE TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT. 
THE ONE SHOT TO SET, THE TEST DISABLES 
THAT LSC SETS. 


TO VERIFY THAT THE ‘DECODE’’ FLOP ON THE 


1369 

1370 READY", BITO9 RMMR 
1371 RMCS1.. EACH FUNCTION COD 
137 1S CHECKED. 

1344 7 PROBABLE FAULT: 

1376 1. CS MODULE 

1377 

1378 2. IF MODULE 

1379 

1380 

1381 

1382 

1383 

1384 TEST 51 SET LSC TEST 

1385 

1386 PURPOSE : 

1387 

1388 TO VERIFY THAT 

1389 

1390 PROCEDURE : 

1391 

1392 

1393 WAITING ENOUGH TIME FOR 
139% THE DEBUG CLOCK AND VERIFIES 
13% PROBABLE FAULT: 

1397 

1398 1. CS MODULE 

1399 

1400 2. IF MODULE 

1401 

1402 

1403 

1404 

1405 

1406 TEST 52 DECODE TEST 

1407 

1408 PURPOSE : 

1210 

1411 THE LEADING EDGE OF "SET PULSE'’ EXCEPT WHEN 
1412 ACTIVE. 

141 

1414 PROCEDURE : 

1416 THE TEST USES "VOLUME 
141 THE DECODE FLOP IS SET OR R 
1418 RESET AND THE TEST EXECUTES T 
1419 AND VERIFIES THAT 0 
14 EXECUTED AGAIN WITH COMPOS 
1421 THAT NEITHER BIT SETS. 
1258 PROBABLE FAULT: 

1494 

1425 1. IF MODULE 


HOSE COMMAND 
R BOTH BITS SET. 


UNI 
GO! 
RMER 


CAN SET AND RESET. 


AFTER 


F MODULE SETS WITH 


‘COMPOSITE ERROR" IS 


VALID’* AND _“‘OCCUPPIED*’ TO DETERMINE IF 
INITIALLY, VV AND OCCUPPIED ARE 
WHICH SET VV OR OCC 


S OMMANDS ARE 
OSITE ERROR SET, AND THE TEST VERIFIES 


T 
N 
2 





SEQ 0027 
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CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-25 SEQ 0028 


TEST 53 SET/RESET VOLUME VALID TEST 
' PURFOSE: 


TO VERIFY THAT ‘VOLUME VALID*’ RESETS WITH THE LEADING EDGE 
vant READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET 


CA AAROROTORD 
ARUN —O ONO 


PROCEDURE : 

USING ‘MAINTENANCE UNIT READY'', BIT 9 OF RMMR1, THIS TEST 
FORCES A ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT 
VOLUME VALID,BIT 6 OF RMDS IS ZERO. THEN THE TEST EXECUTES A 

CKNOW COMMAND, VERIFYING THAT VV SETS. THE PROCEDURE 
OMMAND 
PROBABLE FAULT: 


1. IF MODULE 


Fed ek ae ae ek tae et ee heb ke) 


TEST 54 ILLEGAL FUNCTION TEST 


PRERRRERERRRRRRRR REESE RSLS 


me ee ee ee ee ee ee ee ee a ee mee et ee ee a ee a ad a te ad ed ad ad ad dd 
SSSVSAFU2S 
WONAUSWN—O 


PURPOSE: 
: TO TEST ILLEGAL FUNCTION ERROR IN THE RM8O. 
red PROCEDURE: 
188 WITH DIAGNOSTIC CLOCK ENABLED TO INHIBIT THE COMMAND 
464 SEQUENCER, THIS TEST VERIFIES THAT “‘ILF*’, BIT 0 OF RMER1, IS OFF 
465 FOR LEGAL FUNCTION CODES AND ON FOR ILLEGAL FUNCTIONCODES. THE 
288 STATUS OF THE ‘‘GO'’ BIT IS IGNORED. 
ra PROBABLE FAULT: 
rh 1. IF MODULE 
i 
138 
474 
475 
$76 ' TEST 55 OCCUPIED TEST 
1078 PURPOSE : 
1480 TO VERIFY THAT “‘OCCUPIED’’ IS SET DURING DATA TRANSFERS AND 
td} IS RESET FOR ALL OTHER COMMANDS. 
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N 
THE TEST VERIFIES 


ee ee ed ed ee eh ee ee ed ad ed ed ed ed ed ed 


MMVIII WII 
Mons: PD) ed td a etd etd ote td ed td oO 


CONAQMUSWN— 


THE RI 


Mn 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


TEST 57 RIP/RMOF TEST 
PURPOSE : 


ee ed ed ed ed ed ed nd ed od a 
BWIKAREUTASS 


Ww 
0 


EACH VISIBLE STATUS 
IN PRESET’’ IS SE 


TH 
FOLLOWING ARE USED DUR 


. ALL BITS OF RMOF ARE SET BY _ A_MOVE INSTRUCTION AND THE TEST 
PASSES IF USED BITS ARE ZERO AFTER THE RIP COMMAND 


. THE DESIRED CYLINDER REGISTER 
INSTRUCTION AND THE TEST PASSES 
RIP COMMAND 


3 


DCBUG CLOCK IS 
ATUS IS SAMPLED. 


TO VERIFY THAT “'READ_IN PRESET’’ COMMAND IS DECODED 
+ acta TO VERIFY THAT ‘IFS READ IN CMD L"’ IS NO 


1483 PROCEDURE: 

1485 FOR EACH DATA TRANSFER COMMAND 
1486 SHOULD BE 

1487 RESETTING BEFORE ST 
1489 PROBABLE FAULT: 
1490 

1491 1. IF MODULE 

1492 
1493 2. CS MODULE 

1494 

1495 
1496 
1497 
1498 

499 TEST 56 READ IN PRESET TEST 
501 PURPOSE : 

502 

503 

504 

505 

506 

5 PROCEDURE: 


T ONE OR 
ING THE TEST. 


', THE DISK ADDRESS REGISTER 
AND THE TEST PASSES IF BIT 
P COMMAND. 


THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP 
COMMAND. 


OF RMMR1 
O PREVENT GO FROM 


OR REGISTER BIT WHICH IS CLEARED BY 
T. THEN THE RIP COMMAND IS EXECUTED AND 
E BITS ARE CLEARED. E 


, 1S SET WITH E 
iF BITS 00-09 ARE ZERO AFTER THE 


RMDA, IS SET WITH A MOVE INSTRUCTION 
§ 00-07, AND BITS 08-15 ARE ZERO AFTER 


SEQ 0029 
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BRRERERRES 


TO VERIFY THAT “‘READ IN PRESET’’ RESETS FMT16, ECI, HCI AND 
SSEI BITS 09, 10, 11 AND 12 OF RMOF. 


HCI AND SSEI ARE SET, THEN A RIP COMMAND IS EXECUTED 


TO VERIFY THAT "READ IN PRESET’’ RESETS THE DESIRED CYLINDER 
ADDRESS, RMDC, AND THE DISK ADDRESS, RMDA 


RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE RIP 


“OFFSET MODE’’ SETS WITH OFFSET COMMAND. 


THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT ‘‘OM'', BIT 


1540 

1541 

15 : 

15 

13 4 PROCEDURE: 

15 6 FMT16, ECI 
13 i AND EACH BIT SHOULD BE ZERO. 
1549 PROBABLE FAULT: 
1550 

1551 1. IF MODULE 
135¢ 

155 2. DS MODULE 
1554 

1555 

1556 

1557 

1558 

1359 TEST 60 RMDA/RMDC/RIP TEST 
1561 PURPOSE: 

1562 - 

1563 

1564 

1565 

1566 PROCEDURE: 

1567 

1568 

1569 COMMAND 

1570 

1571 PROBABLE FAULT: 
1572 

1573 1. DS MODULE 
1574 

1575 

1576 

1577 

1578 

1379 TEST 61 OFFSET COMMAND TEST 
1581 PURPOSE : 

158 TO VERIFY THAT 
1584 

1585 PROCEDURE : 

1386 

158 

1388 00 OF RMDS IS ONE. 
1590 PROBABLE FAULT: 
139@ 1. IF MODULE 

159 

1594 

1595 

1596 


SEQ 0030 
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CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-28 SEQ 0031 


* TEST 62 RETURN TO CENTER TEST 

PURPOSE : . 

TO VERIFY THAT “RETURN TO CENTER’ RESETS OFFSET MODE. 

PROCEDURE: 
OFFSET MODE, BIT 00 OF RMDS, IS SET WITH OFFSET COMMAND 
THEN THE TEST EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES 
THAT OFFSET MODE RESETS. OFFSET DIRECTION IS ALSO SET AND 
CHECKED FOR ZERO AFTER THE COMMAND. 
PROBABLE FAULT: 


1. IF MODULE 


SEeSeees Sys 


TEST 63 RMDC CLEAR OFFSET TEST 
PURPOSE : 
TO VERIFY THAT CLEAR OFFSET IS ACTIVE WHEN THE DESIRED 


AACA 
BRERA BIAS 


ee ee ee cee ee ce ee ee ce ee ce ce ce ee ee ce ed ee ed ed ed ed ed eed ed ed ed 


¢ CYLINDER ADDRESS IS WRITTEN. 

666 PROCEDURE : 

628 THE TEST EXECUTES AN OFFSET COMMAND, WRITES RMDC, AND 
663 VERIFIES THAT OM, BIT 00 OF RMDS IS ZERO. 

631 PROBABLE FAULT: 

635 1. DS MODULE 

634 

635 2. IF MODULE 

636 

637 

1638 

1639 

1640 

193! TEST 64 EBL CLEAR OFFSET TEST 

1648 PURPOSE : 

1645 TO VERIFY THAT OFFSET MODE CLEARS WHEN HEAD SWITCHING 
‘1646 OCCURS. 

1647 

158 PROCEDURE : 

1650 THE TEST EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE. 
1651 AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 
1636 soot ss aterm’ THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET 
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TO VERIFY THAT INVALID ADDRESS ERROR CAN SET. 


1654 

1655 PROBABLE FAULT: 

1928 

165 1. DS MODULE 

1658 

1659 

1660 

1903 

1668 TEST 65 RUN AND GO TEST 

1093 PURPOSE : 

1667 TO VERIFY THAT ‘'RUN AND GO"’ 
1668 Ss. 

1669 

ior PROCEDURE : 

1676 THE RM8O_ IS _ INITIALIZ 
167 GO SET IS WRITTEN IN RMCS1. 

1674 ONE FOR EACH DATA COMMAND. 

1922 DOES NOT RESET BEFORE STATUS IS TE 
1677 PROBABLE FAULT: 

1678 

ht 1. CS MODULE 

1681 2. SYNCHRONOUS MASSBUS MODULE 
1682 
1683 

1684 

1685 

1686 

1687 TEST 66 SET IAE TEST 

1688 

1689 PURPOSE : 

1690 

1691 

103% 

eS PROCEDURE : 

1695 THE TEST LOADS INVALID SECTOR 
1696 AND EXECUTES A_ SEARCH COMMAND 
1697 PROCESS IS REPEATED WITH A DIFFE 
1698 ; SET, AND THE TEST FAILS IF IAE CANNOT BE SET 
1700 PROBABLE FAULT: 

1702 1. DS MODULE 

104 2. IF MODULE 

1705 

1706 

1707 

1708 

1709 

1710 TEST 67 SEARCH, SEEK, READ, WRITE TEST 


FLOP SETS DURING READ AND WRITE 


DATA TRANSFER COMMAND WITH 
14 0 1 SHOULD BE 
DEBUG CLOCK IS ENABLED SO THAT GO 


TRACK AND CYL 


P NDER ADDRESSES 
VERIFYING THAT 
OMMAND 


IF THE IAE DCES NOT 


SEQ 0032 
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1 
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1 
1 
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1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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PURPOSE : 


TO VERIFY THAT THE “SCH SK R OR W’’ DECODE ON THE IF MODULE 
IS CORRECT FOR ALL FUNCTION CODES. 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES E TO, WHERE SET PULSE IS ACTIVE AND 
VERIFIES THE DECODE BY CHECKING “‘IAE’’. 
PROBABLE FAULT: 
1. IF MODULE 


70 INVALID TRACK/SECTOR TEST 
PURPOSE : 


TO VERIFY THAT INVALID TRACK AND SECTOR ADDRESSES ARE 
DETECTED. 


PROCEDURE : 


THE TEST LOADS THE TEST PATTERN _IN RMDA AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT ‘‘IAE'* SETS. 


PROBABLE FAULT: 
1. DS MODULE 
2. TRACK ADDRESS OPTION JUMPER 


71 INVALID CYLINDER TEST 
PURPOSE : 

TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED. 
PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDC AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT "‘IAE’’ SETS. 


PROBABLE FAULTS: 
1. DS MODULE 


3 
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1768 2. CYLINDER ADDRESS OPTION JUMPER 

1770 

1771 

177 

177 

1774 TEST 72 SET AOE TEST 

1775 

1907 bettie 

1s TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 

1780 PROCEDURE : 

1a THE TEST Loe THE ADDRESS OF THE LAST SECTOR IN RMDA_ AND 
178 C, THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ye 
1784 END OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS. AND 
1785 TEST VERIFIES THAT “‘AOE’’ IS SET, IN 18 BIT FORMAT, 16 BIT FORMAT 
1786 AND 16 BIT FORMAT WITH "'SSEI*' SET. 

1788 

1789 PROBABLE FAULT: 

1790 

1791 1. DS MODULE 

1792 

1793 


TEST 73 SET RMR TEST 
PURPOSE : 
TO VERIFY THAT ‘REGISTER MODIFICATION REFUSED’* SETS WHEN 
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION oR 
MAINTENANCE REGISTER IS WRITTEN. 
PROCEDURE : 
“DEBUG CLOCK ENABLE’’ IS_ SET TO peter! THE 


COMMAND 
SEQUENCER, THEN A_ NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1. 
WITHOUT STEPPING I ay Cote me, TEST WRITES RMMR_AND 


SSSSsSsKsz 


Secaar 


$19 WHICH SHOULD T T RMR STATUS. THEN RMDA IS WRITTEN AND RMR 
Bis STATUS, BIT 02 OF RMER1, SHOULD BE ONE. 

515 PROBABLE FAULT: 

815 1. IF MODULE 

816 

817 

818 

819 

820 

82 TEST 74 PGM STATUS CHECK 


PURPOSE : 


ee ee ee cee ce ee ee ed me ce ee ee a ce ed ce ed ed ed ed eed ed eed 


SER 
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TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
REQUEST STATUS BIT ARE COMPATABLE. 
PROCEDURE : 

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRO IS OFF. PGM 
IS NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE OF THE 
PORT SELECT SWITCH. 


PROBABLE FAULT: 


aoe de ano enenebaanae 
BRON S 


3 
3 
3 
35 
1836 1. IF MODULE 
1837 
1838 
1839 
1840 
1841 
184¢ TEST 75 DVA/DPR STATUS CHECK 
1848 PURPOSE : 
1846 TO VERIFY THAT DEVICE AVAILABLE STATUS AND DRIVE PRESENT 
1847 STATUS ARE SET. 
1848 
1849 PROCEDURE: 
1851 DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON. 
1838 PROBABLE FAULT: 
1854 
1855 1. IF MODULE 
1856 
1857 
1858 
1859 
1860 
1861 TEST 76 PORT REQUEST TEST, PART 1 
1868 PURPOSE : 
1865 TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
1866 WHEN THE PROGRAM READS RMCS1. 
1868 PROCEDURE: 
1870 THE TEST EXECUTES A RELEASE COMMAND, THEN, ASSUMING THE PORT 
1871 IS RELEASED, IT READS RMCS1, THEN READS RMMRO AND VERIFIES THAT 
1872 ONE OF THE PORT REQUEST FLOPS IS SET. 
1874 PROBABLE FAULT: 
ier 1. IF MODULE 
1877 To cea 
1879 ‘ 
1880 
1881 
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1 
1888 
ie TEST 77 PORT REQUEST TEST, PART 2 
bry PURPOSE : 
1888 TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE ‘SET 
+24 WHEN THE PROGRAM WRITES RMAS. 
44 PROCEDURE: 
1893 THE TEST EXECUTES A RELEASE COMMAND THEN WRITES RMAS AND 
133 READS RMMR2, VERIFYING THAT ONE OF THE REQUEST FLOPS IS SET. 
1896 PROBABLE FAULT: 
1897 
898 1. IF MODULE 
2. (CS MODULE 


TEST 100 PORT REQUEST TEST, PART 3 
PURPOSE : 


susie: 


8s 


1910 TO VERIFY THAT PORT REQUEST SETS WHEN ANY REGISTER EXCEPT 
191) RMAS IS WRITTEN. 

1913 PROCEDURE: 

1915 THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES THAT 
1916 THE PORT REQUEST FLOP I$ ON. 

1918 PROBABLE FAULT: 

1919 

1920 1. IF MODULE 

1921 : 

1932 2. CS MODULE 

1923 

1934 

1995 

1936 

1997 

1928 TEST 101 RELEASE TEST 

1929 

1934 anima 

1932 TO VERIFY THAT A RELEASE COMMAND CAN RESET THE REQUEST FLOPS 
1935 ROA AND ROB IN MAINTANCE REGISTER #2. 

1935 PROCEDURE : 

193 THE PROGRAM SETS REQUEST FLOP BY WRITTING THE RMCS1 REGISTER 
1938 THEN, EXECUTES A RELEASE COMMAND TO RESET THE REQUEST FLOP. 


> +t ae | 
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1939 

1940 PROBABLE FAULT: 

194¢ 1. IF MODULE 

194 

1944 

1945 

1946 

194 

1948 TEST 102 WRITE ATA TEST 

1950 PURPOSE : 

195¢ TO VERIFY THAT ATTENTION CAN BE CLEARED BY WRITING THE 
1953 ATTENTION SUMMARY REGISTER. 

195 PROCEDURE: 

1957 THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN 
1958 ATTENTION, THEN WRITES THE ATTENTION SUMMARY REGISTER AND 
1959 VERIFIES THAT ATTENTION IS RESET. 

1961 PROBABLE FAULT: 

1962 

1963 1. IF MODULE 

1964 

1965 2. CS MODULE 

1966 

1967 

1968 

1969 

1970 

1971 TEST 103 RESET ATA BY GO TEST 

1973 PURPOSE : 

1975 70 VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE ERROR 
1977 . 

1978 PROCEDURE: 

1980 THE PROGRAM SETS MAINTENANCE UNIT READY WHICH SHOULD CAUSE 
1981 AN ATTENTION. THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA 
1982 SHOULD BE ZERO. 

1984 PROBABLE FAULT: 

1985 

1986 1. IF MODULE 

1987 

1988 

1989 

1990 

1991 

1998 TEST 104 UNIT READY ATA TEST 4 

1994 PURPOSE: . 

1995 


Do 


4 
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TO VERIFY THAT ONE-ZERO AND ZERO-ONE TRANSITIONS OF UNIT 
READY SET ATTENTION. 


PROCEDURE : 


THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH TRANSITIONS OF 
UNIT READY AND VERIFIES THAT ATA SETS WITH EACH TRANSITION. 


PROBABLE FAULT: 


SeoReeee sees 


1. IF MODULE 

2008 

2009 

2010 

2011 

e012 TEST 105 ERROR ATA TEST 

2014 PURPOSE : 

2016 TO VERIFY THAT ATTENTION SETS WHEN COMPOSITE ERROR OCCURS 
2017 WHILE GO IS OFF. 

2018 

2019 PROCEDURE: 

202 | THE PROGRAM CLEARS THE DEVICE AND SETS AN ERROR, THEN 
s0ce VERIFIES ATA IS ON. 

2024 ORMRABLE FAULT: 

2025 

2026 1. IF MODULE 

2027 

2028 

2029 

2030 

2031 

203, TEST 106 REGISTER TRANSFER ATA TEST 

2034 PURPOSE: 

2036 TO VERIFY THAT ATTENTION SETS WHEN ANY REGISTER, EXCEPT FOR 
2037 -RMAS AND RMCS, IS WRITTEN WHILE COMP ERROR IS SET. 

Sito PROCEDURE: 

041 THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION FROM THE 
204 ERROR. THE PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT 
204 NO ATTENTION OCCURS, AND WRITES RMDC AND VERIFIES THAT ATTENTION 
2044 DOES OCCUR. 

2046 PROBABLE FAULT 
$028 1 IF MODULE 

049 . 

050 
3051 

052 


zao 
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TEST 107 P SET ATA TEST 
PURPOSE : 


TO_VERIFY THAT ATA IS SET AT THE COMPLETETION OF AN OFFSET AND 
RETURN TO CENTER LINE COMMAND. 


PROCEDURE : 


THE PROGRAM EXECUTES THE COMMANDS USING THE MAINTANCE DEBUG 
CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION. 


PROBABLE FAULT: 
1. IF MODULE 





TEST 110 SET WLE TEST 
PURPOSE : 
| TO VERIFY THAT “WLE"’ IS SET OR RESET WHEN IT SHOULD BE. 
PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS WLE SET OR RESET. 


EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 
SHOULD EXPECT WLE TO BE SET. 


EXECUTE WRITE DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 


EXECUTE READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 
SHOULD EXPECT WLE TO BE RESET. 


EXECUTE READ IN PRESET COMMAND WITH MAINTANCE WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 


Sees URECSeuE CREPE RES yS SUSAN SSeEeR eRe 


PROBABLE FAULT: 
1. MOD 

100 Se eel 

108 ; 

10 

104 

105 

199 

10 TEST 111 EXCEPTION TEST 

199 PURPOSE : 
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110 

111 TO VERIFY THAT "'REX'’ OF RMMR1 IS RESET AFTER THE CONTROLLER IS 
Me INTIALIALIZED AND SET WHEN AN ERROR IS DETECTED DURING A DATA TRANSFER 
Wa . ‘ 

115 PROCEDURE : 

113 THE PROGRAM WILL INITIALIZE THE MASSBUS ("‘REX’’ SHOULD BE CLEAR) 
118 AND THEN EXECUTE THE WRITE DATA COMMAND USING THE MAINTANCE DEBUG CLOCK. 
119 WHILE THE COMMAND IS BEING EXECUTED (RUN AND GO SET), THE PROGRAM CAUSES 
120 AeA ERROR, BY TRYING TO WRITE THE RMER1 REGISTER (‘REX'’ SHOULD BE 
12 , 

138 PROBABLE FAULT: 

125 1. CS MODULE 

126 

127 2. IF MODULE 

18 

130 

131 

132 

138 TEST 112 RECALIBRATE TEST 

35 PURPOSE : 

37 TO VERIFY THAT “‘OPI'' SETS, IF UNIT READY DROPS DURING RECALIBRATE 


COMMAND EXECUTION. 


TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS DURING COMMAND 
EXECUTION. 


TO VERIFY THAT "‘OPI'’ SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 
L VERIFY THAT “‘ATA’’ SETS, IF THE DRIVE COMPLETES THE RECALIBRATE 


TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS AFTER EXECUTION 
DUPING A WAIT LOOP. 


TO VERIFY THE TAG BUS DURING A RECALIBRATE COMMAND. 
PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING CACH COMMAND. 


Is a RECALIBRATE COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI"* 


EXECUTE RECALIBRATE COMMAND, SET DRIVE FAULT (‘MDF’’ IN RMMR1) TO 
CAUSE COMMAND ABORT AND VERIFY THAT ‘‘GO"’ IS RESET. 


EXECUTE RECALIBRATE COMMAND, VERIFY THAT “OPI'’ IS SET WHEN ON 
CYLINDER LATCH IS NOT CLEARED. 


ar ar Se er er er er Ee ee ee te bateanene 


DDRADAAANAALMN AND ES REESE SS 


SALAV— 


YSYRUFLUNASSSLSEGRGALSSS 


POPOPOPOPOPoNONONONOPONENONUPUPUNONINININNVNNNNNNVNNNNNNNNVNNNNNNNNNNNY 
— 


ae Be es 


Ls) 
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167 EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER TO RESET LATCH, 
, THEN SET ON CYLINDER AGAIN AND VERIFY THAT “ATA IS SET. 
1 EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER TO RESET LATCH, 
1 LEAVE ON CYLINDER RESET AND VERIFY THAT GO’ IS STILL SET. 


EXECUTE RECALIBRATE COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE-DETERMINED TABLE. 


PROBABLE FAULT: 
1. CS MODULE 


TEST 113 SEEK TEST 
PURPOSE : 


TO VERIFY THAT "‘OPI'’ SETS, IF UNIT READY DROPS DURING SEEK COMMAND 
EXECUTION. 


TO VERIFY THAT THE SEEK COMMAND ABORTS DURING COMMAND EXECUTION. 
TO VERIFY THAT ‘PI"' SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 
TO VERIFY THAT "‘ATA’’ SETS, IF THE DRIVE COMPLETES THE SEEK COMMAND. 


ed ed ed ed > an Gpepebenenaneeenae =t~4 6b bdo 
SLYLISLSSEVSFALAVILSSSNSARANASSS 


POPOPOPOPOPOPDVUNINDPONENINOPONINPoNaNononanononsnnnn 


197 = VERIFY THAT THE SEEK COMMAND ABORTS AFTER EXECUTION DURING A WAIT 
2200 TO VERIFY THE TAG BUS DURING A SEEK COMMAND. 

$508 PROCEDURE : 
2204 THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 

2205 MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 
2207 EXECUTE SEEK COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI"* IS SET. 
2209 EXECUTE SEEK COMMAND, SET DRIVE FAULT (’MDF** IN RMMR1) TO CAUSE 


COMMAND ABORT AND VERIFY THAT ''GO’’ IS RESET. 


EXECUTE SEEK COMMAND, VERIFY THAT “‘OPI'’ IS SET WHEN ON CYLINDER 
LATCH IS NOT CLEARED. 


EXECUTE SEEK COMMAND, DROP ON CYLINDER TO RESET LATCH, THEN SET 
ON CYLINDER AGAIN AND VERIFY THAT ATA’ IS SET. 


EXECUTE SEEK COMMAND, DRUP ON CYLINDER TO RESET LATCH, LEAVE ON 
CYLINDER RESET AND VERIFY THAT ‘GO'’ IS STILL SET. 


EXECUTE SEEK COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
ACCORDING A PRE-DETERMINED TABLE. 


RonoPononoPononoPononofononyg 
NANT ATTA STEEP TT 
NORPRO ee 
WN) OVOOVWAUEWN Oo 
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PROBABLE FAULT: 
1. CS MODULE 


MIPIM 


OONAUE 


SS 





rmoronosronoenoporoerys 
NENT AT NT NT NTT NT TAG 


31 

3% TEST 114 SEARCH TEST 
2234 TO VERIFY THAT "‘OPI"' SETS, IF UNIT READY DROPS DURING SEARCH COMMAND 
SS EXECUTION. 

Sth TO VERIFY THAT THE SEARCH COMMAND ABORTS DURING COMMAND EXECUTION. 
Sip TO VERIFY THAT ‘‘OPI'' SETS, IF ON CYLINDER LATCH DOES NOT CLEAR. 
$ses TO VERIFY THAT ‘‘ATA’’ SETS, IF THE DRIVE COMPLETES THE SEARCH COMMAND. 
2243 TO VERIFY THAT THE SEARCH COMMAND ABORTS AFTER EXECUTION DURING A 
ssée WAIT LOOP. 

3509 TO VERIFY THAT SEARCH COMMAND ABORTS DURING SECTOR COMPARE LOOP 
$549 TO VERIFY THE TAG BUS DURING A SEARCH COMMAND. 

ssae PROCEDURE : 

2252 THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 

ssee MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND. 
$522 EXECUTE SEARCH COMMAND, DROP UNIT READY AND VERIFY THAT ‘‘UPI*’ IS SET. 
2257 EXECUTE SEARCH COMMAND, sft DRIVE FAULT (°MDF'* IN RMMR1) TO CAUSE 
$526 COMMAND ABORT AND VERIFY THAT "GO'' IS RESET. 

2260 EXECUTE SEARCH COMMAND, VERIFY THAT ‘‘OPI'’ IS SET WHEN ON CYLINDER 
$56) - LATCH IS NOT CLEARED. 
26 EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESET LATCH, THEN SET 
$568 ON CYLINDER AGAIN AND VERIFY THAT “‘ATA’’ IS SET. 
$506 EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESET LATCH, LEAVE ON 
sor CYLINDER RESET AND VERIFY THAT ‘ IS STILL SET. 
2269 EXECUTE, SEARCH COMMAND, WHILE IN SECTOR COMPARE LOOP, SET DRIVE 
ssn cont ("MDF’* IN RMMR1) TO CAUSE COMMAND ABORT AND VERIFY THAT “‘ATA’’ IS 
227, 
5548 EXECUTE SEARCH COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT 
$e ACCORDING A PRE-DETERMINED TABLE. 
2277 PROBABLE FAULT: 

78 1. CS MODULE 

279 


& 
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TEST 


TEST 


115 SEARCH TIMEOUT TEST 
PURPOSE : 


TO VERIFY THAT “‘OPI"’ SETS, IF Ps l (SEARCH TIMEOUT ENABLE) IS 
DROPPED DURING SEARCH COMMAND EXECUT 


PROCEDURE : 


EXECUTE SEARCH COMMAND, VERIFY THAT ‘‘OPI'’ IS SET WHEN ‘MSEN’’ IS 
CLEARED. 


PROBABLE FAULT: 
1. CS MODULE 


116 = 120 DATA COMMAND TESTS (1, 2, 3) 
PURPOSE : 

TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS. 
PROCEDURE : 


THE MAINTENANCE ences Teno TO STAULATE “DRIVE CONDITIONS AND FORCE 


THE COMMAND S ER T EACH BRANCH P. 
WHICH ARE TESTED. soe ine of nun PLUS AND MINUS ON THE TAG BUS AND 
“ENABLE SEARCH’', BIT 11 OF RMMR1. 


PROBABLE FAULT: 
1. CS MODULE 


SEQ 0043 
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695 
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697 


698 


699 
700 


Z*LAST REVISION 07-AUG-81 


- TITLE CPRNBAD RM80 DSKLS PT1 
s*COPYRIGHT (C) 

7*DIGITAL EQUIPMENT CORPORATION 

; *COLORADO SPGS., CO. 80919 


; PROGRAM BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
S PACKAGE (MAINDEC=11=DZQAC=C5), 18-MAR-81 


“S8TTL OPERATIONAL SWITCH SETTINGS 

SWITCH USE 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR _TYPEOUTS 
INHIBIT ITERATIONS 

BELL ON ERR 

LOOP ON ERROR 

Loe TEST IN SWR<7:0> 


Ree ee BO oO Oo & bb & 6 
eae epee RRR 


SO—NWWEUANDWOO-WEUW 


-SBTTL BASIC DEFINITIONS 
s*INITIAL et OF THE STACK POINTER *** 1100 *** 


STACK 
ERROR MT 33BASIC DEFINITION OF ERROR CALL 
SCOPE 10T 33BASIC DEFINITION OF SCOPE CALL 


pantsceLL ees DEFINITIONS 
11 33CODE FOR woe TAB 


Ht = 1 ::CODE FOR LINE F 

CR =1 3: CODE FOR CARRIAGE RETURN 

CRLF = = 200 [CODE FOR CARRIAGE RETURN-LINE FEED 

BS ae 177776 : SPROCESSOR STATUS WORD 

STKLMT = 177776 £2 STACK LIMIT REGISTER 

PIRQ = 17777 [PROGRAM INTERRUPT REQUEST REGISTER 
SWR ss =-:17757 S:HARDWARE SWITCH REGISTER 

DDISP = 177570 3 HARDWARE DISPLAY REGISTER 
s*GENERAL PURPOSE REGISTER DEFINITIONS 

RO = % 7:GENERAL REGISTER 

R1 = 21 [GENERAL REGISTER 

R = xe + GENERAL REGISTER 

R = % *:GENERAL REGISTER 

RG = % *:GENERAL REGISTER 


SEQ 0044 


—o 
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5 RS = 25 3;GENERAL REGISTER 
R = % * GENERAL REGISTER 
R =% GENERAL REGISTER 
000006 SP = 16 t:STACK POINTER 
000007 PC =% +:PROGRAM COUNTER 
>*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 s;PRIORITY LEVEL 0 
000040 PR1 = 40 ::PRIORITY LEVEL 1 
000100 pe = 190 :zPRIORITY LEVEL § 
000140 PR = 14 ::PRIORITY LEVEL 
900200 PR4 = 09 ?:PRIORITY LEVEL 4 
000240 PRS = 24 PRIORITY LEVEL 5 
900300 PR6 = 300 PRIORITY LEVEL 4 
000340 PR7 = 340 + PRIORITY LEVEL 
:*"SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 $w15 = =-:100000 
040000 Sw14 = 40000 
020000 Sw13. ss =- 20000 
010000 Swi2 =: 10000 
004000 SWi1 ss = - 4000 
002000 sw10 = 2000 
001000 swo9 = =_—«*1000 
000400 swos 30s =: 400 
000200 sw07, ss = 200 
000100 Su06 = 100 
000040 Sw0 = 40 
000020 sw04 = 20 
000010 swo3 Ss = :10 
000004 swo2 = 
000002 swol = 2 
000001 swoo = 1 
001000 Sw9=SWO9 
000400 SuB=Su0 
000200 SW7=SwO0 
000100 SW6= 
000040 SW5=S 
000020 SW4=S 
000010 SW3=S 
000004 SW2=S 
000002 Swi= 
000001 SwO0=S 
>*DATA BIT DEFINITIONS (B1TOO TO B1T15) 
100000 B1T15 = 196 
040000 BITI4 = 4 
920000 BIT13. = 2 
0000 BITi2 =1 
000 BIT11 =4 
2000 BIT10 = : 
1000 BIT = 
99 BIT 3 = 4 
2 BIT = é 
anata BITOs = 
= 
000020 BIT =2 
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BASIC DEFINITIONS 


3338 
see: Sse 


ae 6 


at 


oe 
™~ 


Sesesess 


Bae Beet bg Fenn beg eet Ban he Bes as bee ee 


-SBTTL 


OUT AND OTHE 


RACE TRAP 
33BREAKPOINT TRAP (BPT) 
T 10T) **SCOPE** 


POWER FAIL 
EMULATOR TRAP (EMT) **ERROR** 
‘TRAP’ TRAP 


R ERRORS 
3sRESERVED AND ILLEGAL | 
e as id BIT 


NSTRUCT IONS 


OR 
INTERRUPT REQUEST VECTOR 


= 10 

=4 

= 

4 

f 

; 

08 

T 

, 3 

194 

T00 

A ll TRAP VECTOR ADDRESSES 

= 33 

= 10 

= 14 33 

= 14 33 

= 14 

= ? 32 INPUT/OUTPUT TRAP ( 
4 ee 

= 30 33 

= oe 

= 60 zs: TTY KEYBOARD VECTOR 
= gt zi: TTY PRINTER VECT 
= 240 3 PROGRAM 

RM8O REGISTER BIT DEFINITIONS 


. CONTROL STATUS REGISTER 





DEVICE AVAILABL 
; ON CODE 


; ET COMMAND 
RETURN TO CENTERLINE COMMAND 
; OMMAND 


E-READ ONLY 


sREAD IN PRESET C 
3PACK ACKNOWLEDGE COMMAND 


zILLEGAL COMMAND 
ILLEGAL COMMAND 
3SEARCH COMMAND 


SEQ 0046 
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RnBO REGISTER BIT DEFINITIONS 
732 


fae 
139 
738 
739 
740 
741 000070 
74 000072 
2% 000074 
744 000076 
745 
746 
747 
748 
749 004000 
750 002000 
751 001000 
752 000400 
753 
754 
755 000020 
756 000010 
757 000004 
758 000002 
759 000001 
760 
761 
762 177400 
76 00037 
764 
765 
766 
767 100000 
768 040000 
769 020000 
770 010000 
71 004000 
77 002000 
77 001000 
77% 000400 
fe 000100 
77 000001 
778 
779 
780 
781 100000 


ILF = 
ILF = 
ILF = 0000 
ILF4 = 
ILF4 = 
ILF44 = 
ILF46 = 46 
wCD = 23 
WCH = 00005 
tree Op00s6 
= 
a Be 
WH = 
ILF64 = 
ILF66 == 00006 
RD = 00007 
RH = 00007 
ILF74 = 000074 
LF76 = 000076 


3*RMDA DISK ADDRESS REGISTER 


aga ADDRESS DEFINITIONS 


SA1 = BIT04 
SA8 = BIT03 
SAS = BITO2 
SA2 = 61701 
SA1 = B1T00 


:TRACK & se TOR MASKS 
TADMSK = 177400 
SADMSK = 0003 


z*RMDS DRIVE STATUS REGISTER 


_ 
@o 
~ 
hnnnnnnnnne 
@BoOwowowwwwnw 
bees beg ang Sas ee fey bee he bee ere bee 
4—44444 44 —M 
OOO 33 ee 
SQSBoomnrmwEn [7,) 


3*RMER1 ERROR REGISTER #1 
DCK = BIT15 


s ILLEGAL COMMAND 

s ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

ILLEGAL COMMAND 

2 ILLEGAL COMMAND 

: ILLEGAL gt 

sWRITE CHECK DATA COMMAND 
sWRITE CHECK K HEADER AND DATA 
ILLEGAL COMMAND 

sILLEGAL C 

sWRITE DATA_COMMAND 

WRITE HEADER AND DATA COMMAND 
fue COMMAND 

sREAD DATA_COMMAND 

3READ HEADER AND DATA COMMAND 
sILLEGAL C 


OMMAND 
ILLEGAL COMMAND 


; SEC 
sSECTOR ADDRESS 2 
7SECTOR ADDRESS 1 


3 TRACK ADDRESS MASK 
7SECTOR ADDRESS MASK 


sATTENTION ACTIVE 
7COMPOSITE ERROR 
sPOSITIONING IN PROGRESS 
DIUM 
WRITE LOCK 
sLAST BLOCK TRANSFERRED 
OGRAMMABLE 
{DRIVE PRESENT 
E READY 


VOLUME VAL 
sOFFSET MODE ACTIVE 


zDATA CHECK ERROR 


. 


SEQ 0047 


no 


+ 


SEPP EERE SET LS 


ot oe So 
NOW 


WDONOULSWN—O 


SRRE 


824 
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GISTER BIT DEFINITIONS 


UNS = BIT14 
OPI = ais 
DTE = B1T1 

WLE = B1T11 
IAE = B1T10 
AOE = BITO9 
HCRC = BI TOS 
HCE = BITO 
ECH = BIT06 
wCcF = Bite? 
FER = BIT 

PAR = BITO3 
RMR = B1T02 
ILR = BITO1 
ILF = B1T00 

= oC 


:DRIVE UNSAF 


ZINVALID ADDRESS ERROR 
ZADDRESS OVERFLOW ERROR 
ZHEADER CRC ERROR 
ADER COMPARE ERROR 

TECC "HARD ERROR 
ZWRITE CLOCK FAILURE 

:FORMAT ERROR 
sPARITY ERROR 
REGISTER MODIFICATION REFUSED 


ILLEGAL R 
ZILLEGAL FUNCTION 


K!DTE!WLE!AOE!HCRC!HCE!ECH! WCF IFER 


NDTMSK 
| NDIMSK" IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 


3*RMAS ATTENTION SUMMARY REGISTER 


ATNMSK = 377 

3*RMLA LOOK AHEAD REGISTER 
SC4 = B1T10 

Sc3 = BITO9 

SC2 = B1T08 

$c = B1T07 

sco = 81706 


SCTMSK = 003700 
3*RMMR1 MAINTENANCE REGISTER #1 


{WRITE ONLY BITS 
DBCK 
DB 


a clittteanetiea 


T 
T 
T 
T 
T 
T 
T 
T 
T 


OOo SSeS HSS 


lbenno tei 
fred bn Denes Feng (rey Prien beng Ben feos Beng bent Saag Cs Beng Pmt 


saa 


oo 
nhnnnnnnnnnnnnne 


=== —§ OHOOOO 


WEUIM SLRESslVes 


sMASK FOR _ BITS 


SECTOR COUNT MASK 


sDEBUG CLOCK 

;DEBUG CLOCK ENABLE 
DIAGNOSTIC END OF BLOCK 
7SEARCH TIMEOUT ENABLE 
EREAD BATA CLOCK 


UNIT R 
70N CYLINDER 
3 SEEK ERR 


SDIAGNOSTIC MODE 


s OCCUPIED 
RUN 
sEND OF BLOCK 


SEQ 0048 


no 


oO 

23 

re “6 
m 

ad 

| 


SETELTESIES 


850 


879 


Seeracss 


4d 


TER 


DSKLS PT1 MACRO 
BIT DEFINITION 


sees 


soi 


eee 


SSSSss2sRE 
See eseeees 


e 
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MUR ! DBEN! MOC ! MSEN 
YPE REGISTER 


sEXCEPTION 
sENABLE SE 
LOOKING FOR SYNC 
ENABLE CRC OUT 
TA_AREA 


: Ss 
sLAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


sNOT a Hh ADDRESSED = 0 


sTAPE DRIVE = 0 


: NG HEAD = 1 

sDRIVE REQUEST REQUIRED 
sSINGLE PORT DRIVE TYPE 
DUAL PORT DRIVE TYPE 


716 BIT WORD FORMAT 


[ECC INHIBIT 
“HEAD 


HEADER COMPARE IBI 
sSKIP_SECTOR ERROR 
;OF FSET FORWARD 


OFFS 


SUNSED BITS OF RMOF 


3*RMDC DESIRED CYLINDER ADDRESS REGISTER 


3*RMMR2 MAINTENANCE REGISTER #2 


REX = BIT12 
ESRC = BITI1 
PLFS = BIT10 
ECRC = BITO9 
PDA = B1T08 
PHA = BITO 
CONT = BIT06 
we = BITO 
EECC = BIT04 
MWD = BITO3 
LS = BITO2 
LST = BITO1 
DMD = BITOO 
MRIAAA = DMD!MUR! 
:*RMDT DRIVE T 
NSA = BIT15 
TAP = BIT14 
MOH = BIT13 
DRQ = B1T11 
SNGPRT = 020026 
DULPRT = 024026 
:*RMOF OFFSET REGISTER 
FMT16 = = BIT12 
ECI = BIT11 
HCI = BIT10 
SSEI = BITO9 
OFD = BIT07 
F = 160577 
CYLMSK = 001777 
XNUDC = 176000 
:READ ONLY BITS 
ROA = BIT1 
ROB = BIT14 
TAG = BIT13 
TST = BIT12 
cc = BIT11 
CH = BITI9 
BB09 = BITO 
BBO = BITOB 
BBO = BIT07 
8B0 = BIT 
BB0 = BITO 
BB04 = BIT04 
8803 = = BIT03 
BBO = B1T0e 
BBO = BITO 


sMASK FOR CYLINDER ADDRESS 
RMDC 


sUNSED BITS OF 


sPORT A REQUEST 
sPORT B REQUEST 
3TAG CONTROL 


sCOMMAND SEQUENCE TEST BIT 
CONTROL OR CYLINDER TAG 
sre OR HEAD TAG 


SEQ 0049 


CZRNBAO RM80 DSKLS P11 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-6 SEQ 0050 


RM8O REGISTER BIT DEFINITIONS 


902 


SESoRe 


Qoeoveee 
NOUSWN oO 


918 


= B1T00 :TAG BUS 


s*RMER2 ERROR REGISTER 2 


000001 BB00 
100000 BSE 
040000 SKI 
020000 OPE 
010000 IVC 
004000 LSC 
002000 LBC 
000200 DvC 
000040 SSE 
000010 DPE 
001527 R2 
.SBTTL 
100000 MSE 
040000 USE 
020000 SSF 
.SBTTL 
000000 RMCS1 
000006 RMDA 
000012 RMDS 
000014 RMER1 
000016 RMAS 
000020 RMLA 
000024 RMMR1 
000026 RMDT 
000030 RMSN 
000032 RMOF 
000034 -RMDC 
000036 RMHR 
900042 AMER? 
000042 RMER 
000044 RMEC1 
000046 RMEC2 
000050 ILRG5O 
000052 ILRGS2 
000054 ILRG54 
000056 ILRG56 
000060 ILRG6 
000062 ILRG6 
000064 ILRG64 
000066 ILRG66 
000070 ILRG70 
000072 ILRG72 
000074 ILRG74 
000076 ILRG76 
000077 IDXMSK 
.SBTTL 


= BIT15 sBAD SECTOR ERROR 

= BIT14 3SEEK INCOMPLETE 

= B1T13 OPERATOR PLUG ERROR 

= BITI2 z INVALID COMMAND ERR 

= B1T11 sLOSS OF SYSTEM CLOCK 

= BITIe sLOSS OF BIT CLOCK 

= BITO : CHECK 

= BITOS 3SKIP SECTOR ERROR 

= BIT03 3DATA PARITY ERROR 

= 001527 ZUNSED BITS OF RMER2 
PROGRAM MNEMONICS 

= BIT15 sMANUFACTURING DETECTED SECTOR ERROR 
= BIT14 USER DETECTED SECTOR ERROR 
= B1T13 3SKIP SECTOR FAILURE 

RM8O REGISTER INDEX VALUES 


sCONTROL STATUS REGISTER #1 
3DISK_ADDRESS REGISTER 
sDRIVE STATUS REGISTER 
sERROR REGISTER #1 
ZATTENTION SUMMARY REGISTER 
3;LOOK_AHEAD REGISTER 
sMAINTENANCE REGISTER 
DRIVE TYPE REGISTER 

: AL NUMBER REGISTER 
3 OF FSE 


T REGIST 
ety CYLINDER REGISTER 


PPA NINN AE EEN. RUS 
MOALMVOALNVOALNOALOASLSNUAS © 


ANN 
QEeNOO 


77 3MASK FOR REGISTER INDEX NUMBER 
RH CONTROLLER REGISTER BIT DEFINITIONS 





CZRNBAO 
RH CONTROLLER REGISTER BIT DEFINITIONS 
+ 


RM8O DSKLS PT1 MACRO V04.00 1 


esses 
geese 


sss 
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z*RMCS1 CONTROL STATUS REGISTER #1 
HTRANSFE CONDITION-READ ONLY 


= BIT15 
TRE = BIT14 SFER ERROR 
MCPE = BIT13 MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 
PSEL = B1T10 RT B SELECT 
Al = BITO9 SADDRESS EXTENSION 
Al6 = B1T08 nye Se 
RDY = BIT07 READY-READ ONLY 
IE = BIT06 }INTERRUPT ENABLE 


z*RMCS2 RH CONTROL STATUS REGISTER #2 


DLT = BITI5 zDATA_LATE-READ ONLY 

WCE = BIT14 SWRITE CHECK ERROR-READ ONLY 

UPE = BIT13 ZUNIBUS PARITY ERROR 

NED = BITI2 sNONEXISTANT DRIVE-READ ONLY 

NEM = BIT11 ZNONEXIST MEMORY-READ ONLY 

PGE = B1T10 PROGRAM ERROR-READ ONLY 

MXF = B1T09 ;MISSED TRANSFER 

MDPE = BITO8 ZMASSBUS DATA BUS PARITY ERROR-READ ONLY 
OR = B1T07 ZOUTPUT READY-READ ONLY 

IR = B1706 ;INPUT READY-READ ONLY 

CLR = BITOS CONTROLLER CLEAR 

PAT = BIT04 SPARITY TEST 

BAI = BITOS [UNIBUS ADDRESS INCREMENT INHIBIT 
U2 = BIT02 UNIT SELECT 

U1 = BITO! sUNIT SELECT 

ud = BIT00 sUNIT SELECT 

sUNIT SELECT MASK 

UNTMSK = 7 sUNIT SELECT MASK 


z*RMCS3 RH70 CONTROL STATUS REGISTER #3 


E = B1T15 sADDRESS PARITY ERROR 
DPEHI = BIT14 ZDATA PARITY ERROR HIGH WORD 
DPELO = BIT13 3DATA PARITY ERROR L D 
WCEH] = BITI2 WRITE CHECK ERROR HIGH WORD 
WCELO = B1T11 sWRITE CHECK ERROR D 
DBL = B1T10 OUBLE WORD TRAN. 
E = BIT06 INTERRUPT ENABL 
PCK3 = BITOS s INVERT PARITY CHECK 
IPCK2 = BITO2 INVERT PARITY CHECK 
IPCK1 = B1T01 INVERT PARITY CHECK 
IPCKO = BITOO INVERT PARITY CHECK 
-SBTTL RH CONTROLLER REGISTER INDEX VALUES 
RMCS1 = =: 00 sCONTROL, STATUS REGISTER #1 
C = 02 ;WORD COUNT a nesasite 
= 04 BUS ADDRESS REGISTER 
RMCS2. = 10 CONTROL STarus REGISTER #2 
RMDB = $6 DATA BU 
f = 7BUS ADDRESS EXTENSION 
RMCS = 52 sCONTROL, STATUS REGISTER #3 


SEQ 0051 Ci 
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RH CONTROLLER REGISTER INDEX VALUES 


994 
99 


aR es, DHE 


sUNIBUS ADDRESS 
ZUNIBUS VECTOR ADDRESS AND PRIORITY 


SEQ 0052 


C2 
EF 


B 5 
CZRNBAO_RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 5 SEQ 0053 
TRAP CATCHER 
1 -SBTTL TRAP CATCHER 
000000 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+#2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTE 
3 *LOCATION a9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 
000174 900000 DISPREG:  . WORD z:SOFTWARE DISPLAY REGISTER 
000176 SWREG:  .WORD TESOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
000200 000137 004652 MP aASTART z: JUMP TO STARTING ADDRESS OF PROGRAM 
5 000204 000137 004642 MP a#STARTI CHANGE RH/RM BUS ADDRESS 
5 .SBTTL ACT11 HOOKS 
FRRAARERRARREREREREREEEEEEEERREERRERERERERRRRERERRERRERRERRERERR 
‘HOOKS REQUIRED BY ACT11 
000 10 SSVPC=. SAVE PC 
000046 sks SENDAD z:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 809900 “WORD 0 i s2)SET Loc. 532 TO ZERO 
ie 000210 = =$SVPC t: RESTORE P 
le 001100 .=1100 
1 *SBTTL APT PARAMETER BLOCK 
REAR AAARARAAAEAAAARAARAREEAAERERARARERAERERARARERARERARRERARAARRERRERE 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
{RRAAAAAAERAAAARARERAEREREEEAARARREERARERERERERERRERRRRRREERRERE 
001100 .$X=. | 3;SAVE CURRENT LOCATION 
000024 <3 7:SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 30 t:FOR APT START UP 
000044 244 i :POIN NT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHDR ::POINT TO APT HEADER BLOCK 
001100 .=.$X = :RESET LOCATION COUNTER 


PTTTTITITITTTTIT ITIL LILLE EL LLELLLLLLLLLLL LLL LLL k 


: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ZINTERFACE SPEC. 


001100 THD: 

001100 000000 SHIBTS: .WORD ie 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001102 001222 R: WORD IL 3: ADDRESS OF APT MAILBOX (BITS 0-15) 

001104 si 4 STSTM: .WORD aa Ba OF LONGEST TEST 

991198 4 SPASTM: .WORD Se IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001110 000024 SUNITM: .WORD yee L RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
1% 001112 sie eed TAGADR WORD 20: weshi ied ON LENGTH MAILBOX-E TABLE (WORDS) 





mo 
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COMMON TAGS 


0 -SBTTL COMMON TAGS 


FERRARA ARERAAAAAAERAREREREAERERARARAEERERERAERARRERERRERRERRERERE 


[*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
3*USED IN THE PROGRAM. 


-=TAGADR 


001114 
001114 SCMTAG: ;3START OF COMMON TAGS 
001114 000000 WORD 0 
Q01116 00 STNM: .BYTE 0 z3CONTAINS THE TEST NUMBER 
001117 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
901129 900000 ICNT: 0 Z:CONTAINS SUBTEST ITERATION COUNT 
0011 LPADR: :WORD 0 3:CONTAINS SCOPE LOOP ADDRESS 
001124 000000 SLPERR: WORD 0 Z:CONTAINS SCOPE RETURN FOR ERR 
901126 000000 SERTTL: WORD 0 Z:CONTAINS TOTAL ERRORS DETECTED 
0011 000 SITEMB: .BYTE 0 3:CONTAINS ITEM CONTROL BYTE 
001131 001 SERMAX: :BYTE 1 S:CONTAINS MAX. ERRORS PER TEST 
001132 000000 SERRPC: WORD 0 Z:CONTAINS PC OF LAST ERROR INSTRUCTION 
001134 000000 SGDADR: :WORD 0 Z:CONTAINS ADDRESS OF ‘GOOD’ DATA 
901156 900000 SBDADR: :WORD 0 Z:CONTAINS ADDRESS OF ‘BAD’ DATA 
001140 000000 SGDDAT: WORD 0 S:CONTAINS "GOOD" D 
001142 000000 SBDDAT: :WORD 0 3:CONTAINS "BAD DATA 
001144 000000 “WORD 0 3:RESERVED=-NOT TO BE USED 
001146 000000 WORD 0 
001150 000 UTOB: ‘BYTE 0 ; AUTOMATIC MODE INDICATOR 
001151 000 SINTAG: :BYTE 0 ;ZINTERRUPT MODE INDICATOR 
001152 000000 “WORD 0 
001154 177570 SWR:  :WORD DSWR ;ZADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: DDISP ZZADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 3:1TY KBD STATUS 
001162 177562 STKB: 177562 ::TTY KBD BUFFER 
001164 177564 $TPS: 177564 3:TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 Z:TTY PRINTER BUFFER REG. ADDRESS 
001170 000 SNULL: .BYTE 0 S:CONTAINS NULL CHARACTER FOR FILLS 
001171 002 SFILLS: :BYTE 2 S:CONTAINS # OF FILLER CHARACTERS REQUIRED 
901172 012 SFILLC: . 12 ZINSERT FILL CHARS. APTER A LINE FEED. 
00117 000 STPFLG: .B 0 33 TERMINAL AVAILABLE" FLAG (BIT<07>=0=VES) 
001174 000000 TMPO: 0 3ZUSER DEFINED 
001176 000000 STMP1: 0 3:USER DEFINED 
901200 900000 STMP2: :WORD 0 3ZUSER DEFINED 
001202 $TMP3: WORD 0 3:USER DEFINED 
001204 000000 TMP4: :WORD 0 3:USER DEFINED 
001206 000000 STIMES: 0 33MAX. NUMBER OF ITERATIONS 
901219 000000 SESCAPE:0 3;ESCAPE ON ERROR ADDRESS 
00121 20 377 «377:«SBELL: .ASCIZ <207><377><377> 3:CODE FOR BELL 
go1z16 077 SQUES: ‘ASCII /2/ 3: QUEST K 
001217 15 SCRLF: :ASCII <15> 3: CARRIAGE RETURN 
001220 012 000 $LF:  <ASCIZ_ <12> :3LINE FEED 


ee 
© RERAARAAAERAERERRAREEAEEEEREAERAAARARRERAERERARAEEREEARAEERERREER 


*SBTTL APT MAILBOX-ETABLE 


FERRARA AAAAAAARERAAREREREAAAARAAAEAEAEERARERAERARAAEERRARERARAEES 


"EVEN 
OO ess SMAIL: 3s; APT MAILBOX 
00122 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001 $3 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001226 STESTN: .WORD ATESTN ;;TEST 





SEQ 0054 


mo 


3 


esssssssess 8 


an 
— 
—_> x 


ek es ts 


Bete Se 
A ed 


Set 
= 


3 
ey: 


rT 


MUIPOIMIMININONY 
NOLS RARONS 
>| 


s 


sisstestes § 


—_ 


Bue 


geggeggssggesegesessss 


as AMOS MOOS 





SEQ 0055 


33PASS COUNT 
3 sDEVICE COUNT 


70201. 1105-02. 11/2003, 11740204, 11/45=05 
BIT 1O=REALT TIME’ CLO Ck 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY MANAGEMENT 

:sHIGH ADDRESS, M.S. BYTE 


BLKA 
hime M.T ire BY fe. -- “once BYTE) 
00 NSEC at R=002 
= 
33 ESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
::HIGH ADDRESS,M.S. BYTE 


TYPE ,BL 
2: :MEM.LAST “ADDRESS ,BLKA2 
3 HIGH ADDRESS .M.S.BYTE 


:IMEM.LAST ADDRESS BLKA3 
::HIGH ADDRESS,M.S.BYTE 


RRUPT VECT PRIORITY#2 
‘teas SE ADDRESS OF EQUIPMENT UNDER TEST 


EVICE MAP 
‘ : {CONTROLLER psy tab WORD#1 
3;CONTROLLER DESCRI gt WORD#2 


3sDEVICE DESCRIPTOR 

3sDEVICE DESCRIPTOR D# 
3sDEVICE DESCRIPTOR WORD 
33;DEVICE DESCRIPTOR WORDA 
33DEVICE DESCRIPTOR WORDA4 
2 sDEVICE DESCRIPTOR WORDAS 

DEVICE DESCRIPTOR WORD 

DEVICE DESCRIPTOR WORD# 


mo 
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USER DEFINED TAGS 


-SBTTL USER DEFINED TAGS 





001 26 900000 AUTSIZ: .WORD ;ALLOW AUTO DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES = 1 
001 CHGADR: .WORD H/RM BUS ADDRESS = -1, NO C A 
001332 000000 XXDP:  .WORD STHE LOW ROYTe CONTAINS, THE DRIVE NUMBER FROM WHICH 
:THE PROGRAM THE BYTE CONTAINS THE 
*XXDP* DEVICE CODE PoR'T Ne RMBO. 
001334 09 LSTRK: .BYTE 0 [LO BYTE = 
001335 01 “BYTE 13. SHI BYTE CONTAINS _ LA T TRACK ADDRESS OF UNIT 
[UNDER TEST. RM8O 
THE REGISTER INPUT BUFFER IS USED FOR 
TSTORING DRIVE STATUS 
001336 GETBUF : 
-REGISTER INPUT BUFFER 
001336 000000 RMCS1I: .WORD 0 ; CONTROL . STATUS REGISTER #1 
001349 000000 RMWCI: .WORD 0 D COUNT REGISTER 
001342 000000 RMBAI: .WORD 0 ‘BUS ADDRES s REGISTER 
001344 000000 : WORD 3D1Sk ADDRESS REGISTER 
001346 000000 RMCS21: .WORD 0 ROL TUS REGISTER #2 
001350 000000 ;WORD 0 {DRIVE btatuS RE REGISTER 
001352 000000 RMERII: .WORD 0 TERROR REGISTE 
001354 000000 RMASI: .WORD 0 TATTENTION SUMMARY REGISTER 
001356 900000 I: WORD 0 [LOOK AHEAD REGISTER 
001 RMDBI: .WORD 0 [DATA BUFFER 
001362 900000 RMMR1I: .WORD 0 *MAINTENANCE REGISTER #1 
001364 RMDTI: .WORD 0 [DRIVE TYPE REGISTE 
001366 000000 RMSNI: .WORD 0 *SERIAL NUMBER REGISTER 
001370 000000 RMOFI: .WORD 0 SOFFSET REGISTER 
001372 000000 RMDCI: .WORD 0 :DESIRED CYLINDER REGISTER 
001374 000000 “WORD 0 ING REGISTER 
001376 000000 I: :wORD 0 MAINTENANCE REG! TER #2 
001400 000000 RMEROI: .WORD 0 zMAINI REGISTER 
001402 900000 Cll: .WORD 0 [ECC POSITION REGISTER 
001404 RMEC2I1: .WORD [ECC PATTERN REGIST 
001406 000000 : .WORD *BUS ADDRESS EXTENSION REG! TER 
001410 000000 RMCS31: .WORD *CONTROL, STATUS REGISTER # 
;THE REGISTER OUTPUT BUFFER IS USED FOR 
SASSEMBLING DATA GOING TO REGISTER 
001412 PUTBUF : 
*REGISTER OUTPUT BUFFER 
001412 000000 RMCS10: .WORD :CONTROL, STATUS REGISTER rT 
001414 000000 RMWCO: WORD [WORD COUNT REGIST 
001416 000000 : WORD *BUS ADDRESS FECT STER 
0014 000000 “WORD [DISK ADDRESS REGISTER 
1422 000000 RMCS20: .WORD SCONTROL, STATUS REGISTER #2 
001424 RMDSO: .WORD DRIVE STATUS RE REGISTER 
0014 RMER10: .WORD ZERROR R 
0014 RMASO: .WORD TTEN rion STERARY REGISTER 
0014 RMLAO: WORD ‘OOK AHEAD REGISTER 
9014 RMDBO: WORD ‘DATA BUFF 
14 RMMR10: .WORD SMAINTENANCE REGISTER #1 


mo 


F 5 
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USER DEFINED TAGS 
00144 RMDTO: .WORD sDRIVE TYPE REGISTER 
oat RMSNO: .WORD 7SERIAL NUMBER REGISTER 
1444 RMOFO: .WORD sOFFSET REGISTER 
001 000000 RMDCO: .WORD : DESIRED svi sioen REGISTER 
00145 ati RMHRO: .WORD HOLDING REGIST 
Opie RMMR2O: WORD MAINTENANCE “REGISTER & 
1454 000000 RMER2O: .WORD TERROR REGISTER # 

001456 sisi RMEC10: .WORD sECC POSITION REGISTER 
001460 RMEC20: .WORD 7ECC PATTERN REGISTER 
001462 000000 oS: ~WORD 0 3BUS ADDRESS EXTENSION REGISTER 
001464 000000 RMCS3O: .WORD 0 ;CONTROL, STATUS REGISTER # 

sEACH WORD OF poe TEST QUE CONTAINS THE DEVICE NUMBER IN 

A LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. ih 

FI Rst WORD gonna THE ADDRESS OF THE DEVICE UNDER TEST 

HINT HE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 

END OF THE QUE. 
001466 000000 TSTQUE: .WORD 0 : CONTAINS re ee POINTER 
001470 -BLKW 8. Hie af eA OR DEVICES UNDER TEST 
001510 000000 WORD 0 + RMINATOR GOES HERE WHEN 

ALL DEVICES ARE UNDER TEST. 

001512 176348 SLPCSR: .WORD 173349 skW11-P CONTROL + gras REGISTER 
001514 172542 $LPCSB: .WORD 172542 7kW11-P COUNT SET FER 
O01 216 000104 SLPVEC: .WORD 104 ;kW11-P INTERRUPT VECTOR 
001520 000106 - WORD 196 
001522 177546 SLLCSR: .WORD 177546 sKW11-L CONTROL + STATUS REGISTER 
001524 000100 SLLVEC: .WORD 100 ;KW11-L INTERRUPT VECTOR 
Oot 366 000102 WORD 102 
0015 000000 S$PSW:  .WORD sSTORAGE FOR PRIORITY 
001532 000000 TIME: WORD ZSTIRAGE FOR ELAPSED TIME 
001534 000000 WATCH: .WORD ZSTORAGE FOR REMAINING TIME 
001536 000000 CLOCK: .WORD ZADDRESS OF START CLOCK SUB 
001540 000000 STOPCL: .WORD SADDRESS OF STOP CLOCK SUB 


sPUT TAGS HERE 


mo 
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-SBTTL ERROR POINTER TABLE 
et Sear Ale THE INFORMATION 4° oer rar ee | CAN OCCUR. 


S$ OBTAINED BY USING T OUND _IN 
N THE 8 # fs PERTINENT. 


HE 
3 *LOCATION SITES, THIS NUMBER INDICATES VS ives IN 
3*NOTE1: EMB I ONLY PERTI 


3 *NOTE2: 


7ERROR 


S 9 THE NENT DA 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


33POINTS TO THE ERROR MESSAGE 
pies al se ahs HEADER 


O THE DAT. 
SEPOINTS TO THE DATA FORMAT 


CANNOT CLEAR NED STATUS 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 
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ERROR POINTER TABLE 


EHT 
EDTS 
EFTS 


CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


REGISTER SELECT 1 APPEARS S-A-0 


REGISTER SELECT 71 APPEARS S-A-1 


REGISTER SELECT 2 APPEARS S-A-0 


REGISTER SELECT 2 APPEARS S-A~1 


REGISTER SELECT 4 APPEARS S-A-0 


REGISTER SELECT 4 APPEARS S-A-1 


| 


SEQ 0059 


a) 


I 5 
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ERROR POINTER TABLE 
40 
001702 7 MT15 
001706 060000 6 
001706 000000 
001710 000000 
4) 
2 sERROR 16 REGISTER SELECT 8 APPEARS S-A-0 
001712 064710 “phe 
001714 000000 
001716 000000 0 
001720 000000 0 
44 
2 sERROR 17 REGISTER SELECT 8 APPEARS S-A-1 
001722 064726 MT17 
001724 000000 6 
001726 000000 
001750 000000 0 
47 
3 sERROR 20 CANT WRITE ZEROS RMDA 
001732 744 EMT20 
001734 O75 86s H 
001736 07 EDT! 
001740 072410 EFT1 
50 
3 sERROR 21 CANT WRITE ONES RMDA 
001742 064764 oie 
001744 07. ¢: EHT 
001746 07 EDT! 
001750 072410 EFT1 | 
53 
2 sERROR 22 BIT INTERFERENCE IN WRITING/READING RMDA 
001752 065908 EMT22 
001754 6 EH? 
Op 1736 7 3 EDT1 
17 7241 EFT1 
5 
5 sERROR 23 CANT WRITE ZEROS RMCS1 


CANT WRITE ONES RMCS1 
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1 ve 
177 
1776 


002000 


CZRNBAO 
ERROR POINTER TABLE 


ie 


7241 


3 ERROR 


BIT INTERFERENCE IN WRITING/READING RMCS1 


MBA CLR L IS STUCK ACTIVE 


CANNOT CLEAR RMER1-PAR,RMR,ILF,ILR 


CANNOT CLEAR RMER1~DCK, JAE AOE ,HCRC HCE .ECH,WCF FER 


CANNOT CLEAR RMER1-OPI ,DTE 


CANNOT WRITE 0 IN RMER1-PAR,RMR,ILF,ILR 


CANNOT WRITE 0 IN RMER1-DCK,IAE,AOE HCRC HCE ,ECH. WCF FER 


SEQ 0061 
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902070 


CZRNBAO 
ERROR POINTER TABLE 


065340 
000000 


3 ERROR 


;ERROR 


ERROR 


CANNOT WRITE 0 IN RMER1-OPI ,DTE 


CANNOT WRITE 1 IN RMER1 


CANNOT WRITE SHIFTING 1 IN RMER1 


CANNOT WRITE ZEROS IN RMDC 


CANNOT WRITE ONES IN RMDC 


BIT INTERFERENCE IN WRITING/READING RMDC 


CANNOT WRITE 1°S IN RMDC OR RMDA 
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ERROR POINTER TABLE 


02166 000000 


; ERROR 


7 ERROR 


;ERROR 


7 ERROR 


CANNOT CLEAR RMCS1-FUNCTION CODE 


UNUSED BITS OF RMER2 NOT ZERO 


CANNOT CLEAR RMER2-OPE,IVC,LSC 


CANNOT CLEAR RMER2=LBC ,DPE 


CANNOT WRITE ZEROS RMER2-OPE,1VC,LSC 


CANNOT WRITE ZEROS RMER2-LBC ,DPE 


CANNOT WRITE ONES RMER2 
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ERROR POINTER TABLE 
002250 072410 


;ERROR 


;ERROR 


;ERROR 


7 ERROR 


zERROR 


EFT 


CANNOT WRITE SHIFTING ONES RMER2 


UNUSED BITS OF RMOF ARE NOT ZERO 


CANNOT WRITE ZEROS RMOF 


CANNOT WRITE ONES RMOF 


_ CANNOT WRITE SHIFTING ONES RMOF 


DEVICE IS NOT AN RM80 


DEVICE AVAILABLE IS NOT SET 


N 
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ERROR POINTER TABLE ERI 


14 
ts sERROR 61 CANNOT WRITE ZEROS RMHR 
002342 O83 EMT61 
002344 8 g EHT1 
B05 6 7 EDT1 
002350 07241 EFT1 
149 
130 sERROR 62 CANNOT WRITE ONES RMHR 
002352 06570. EMT62 
002354 07226 EHT1 
002356 07236 EDT1 
002360 072410 EFT1 
15 
13) sERROR 63 CANNOT WRITE SHIFTING ONES RMHR 
002362 06572 EMT63 
002364 07226 EHT1 
002366 07236 EDT1 
002370 072410 EFT1 
155 
136 sERROR 64 CANNOT CLEAR ILR STATUS 
002372 065736 EMT64 
002374 675868 EHT1 
002376 07236 EDT? 
002400 072410 EFT1 
158 
1%) sERROR 65 ILR ERROR SHOULD NOT BE SET 
002402 065750 EMT65 
ae i ae 
009410 on 42 EFT65 
161 
19 sERROR 66 ILR ERROR SHOULD BE SET 
002412 065764 | MT 
Serle Sea ae 
002220 07242 EFT65 
164 
193 . sERROR 67 CANNOT CLEAR PAR STATUS-DPE IS RESET 
002422 M167 
Bist Sans a 
0024 oy 41 EFT 


ee 


SEQ 0066 C. 










; ERROR CANNOT CLEAR PAR AND DPE STATUS 


69 
002432 1 EMT70 
0024 0 s EHT1 
0024 EDT! 
002440 07241 EFT1 
170 
it ERROR 71 "PAR'' ERROR SHOULD NOT BE SET~-"PAT’’ IS OFF 
244 M171 
80 tee NehE BHT TI 
002446 072374 EDT71 
002450 072422 EFT71 
173 
1 ERROR 72 "PAR'' ERROR SHOULD BE SET-"PAT’' IS ON 
002452 $ EMT72 
002454 07 3 EHT71 
002456 072374 EDT71 
002460 072422 EFT?71 
176 
ve ERROR 73 *MCPE’’ ERROR SHOULD NOT BE SET 
002462 066106 EMT73 
2464 07231 EHT71 
002466 072374 EDT71 
002470 072422 EFT71 
179 
190 ERROR 74 UNEXPECTED BUS TIMEOUT 
002472 066126 EMT74 
002474 072316 EHT74 
002476 072376 EDT74 
500 072424 EFT74 
182 
HY ERROR 75 CANT CLEAR ‘‘DMD*’ 
OO e0e 1 EMT75 
002504 07 ¢ EHT1 
0025 7236 EDT1 
00251 72410 EFT1 


CANT WRITE ZERO ‘DMD*' 
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ROR ER TASL 

189 sERROR 77 CANT WRITE ONE ‘DMD’ 

00 522 164 —MT77 
524 ¢6 EHT1 

0025 07 6 EDT1 
0025 7241 EFT 

191 

198 sERROR 100 DMD SET BY WRONG BIT 
002532 2 EMT100 
0085 07231 EHT71 
002536 07237 EDT65 
002540 072420 EFT65 

194 

199 ZERROR 101 CANT CLEAR "MOL"' IN DIAGNOSTIC MODE 
002542 066220 EMT101 
002544 072 62 EHT1 
002546 07 EDT1 
002550 072410 EFT 

197 

198 sERROR 102 CANT SET "MOL" IN DIAGNOSTIC MODE 
002552 40 MT102 
002554 O726g ane 
002556 072 62 EDT 
002560 072410 EFTI 

200 

201 ZERROR 103 "MUR'' SET BY WRONG BIT 
002562 066260 EMT103 
ppSee6 079378 EOTOS 
002570 4 420 EFT65 

203 

204 TERROR 104 CANT RESET ‘WRL"' IN DIAGNOSTIC MODE 
002572 066304 EMT104 
002574 07226 EHT1 
002576 07 EDT 
002 7261 EFT 

206 

307 ZERROR 105 CANT SET “WRL"’ IN DIAGNOSTIC MODE 
002602 324 EMT105 
002604 07 26 EHT1 
00 7 EDT 
002610 072410 EFT 


“mWP"’ SET BY WRONG BIT 


mo 


Hate 


07242 


o6es? 
07226 
07236 
07241 


2 
"5 


sERROR 


: ERROR 


: ERROR 


111 


112 
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ERROR POINTER TABLE 


CANT RESET ‘DVC'’ USING ‘MDVC"" 


“pvc’’ IS RESET BUT ‘UNS’ IS SET 


“pvc IS SET BUT "'UNS'’ IS NOT SET 


CANT SET ‘DVC'* USING MDVC"* 


"DVC’’ IS RESET BUT "'UNS'’ IS SET 


"DvC’’ IS SET BUT "UNS" IS NOT SET 


“MDF*’ IS SET BY WRONG BIT 


SEQ 0068 
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ERROR POINTER TABLE 


002702 
o03704 
og e08 


CANT RESET ‘'SKI'’ USING 'MSER"’ 
CANT SET "’SKI'* USING 'MSER"’ 
“SKI'’ SET BY WRONG BIT 

CANT RESET ‘PIP’ USING ‘MOC’ 
CANT SET ‘‘PIP’* USING ‘™OC"’ 


*MOC’’ SET BY WRONG BIT 


CANT CLEAR “EBL"* 
EMT124 





mo 


774 
00. 


Bas 


75 
6 


7 
0 072410 


ne 


711 
07233 


; ERROR 


sERROR 


133 


EHTTS2 


CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-12 
ERROR POINTER TABLE 


“EBL'’ NOT ZERO IN DIAGNOSTIC MODE 


CANT SET ‘EBL"’ USING ‘DEBL*’ 


*DEBL*’ SET BY WRONG BIT 


LS’ NOT CORRECT ACCORDING TO RMDA 


“LST’* NOT CORRECT ACCORDING TO RMDA 


CANNOT INCREMENT SECTOR ADDRESS USING ‘DEBL* 


CANNOT INCREMENT TRACK ADDRESS USING *DEBL* 


SEQ 0070 


6 
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CZRNBAO 
ERROR POINTER TABL 


030% O7eas2 


an i 


003100 072410 


003122 O67 17s 


7 
072410 


ns 
a. 


Bes Sat 


UNUSED BITS OF RMDC NOT ZERO 


"vv" NOT RESET BY UNIT READY 


SERIAL NUMBER IS INCONSISTENT 


CANT CLEAR ‘'GO’* BIT 


CANT INCREMENT CYLINDER USING *DEBL*’ 


CANT RESET "‘LBT’* BY WRITING RMDA 


CANT SET "‘LBT’* USING ‘DEBL"* 


= 


H 6 
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He ROR POINTER TABLE 
003160 072432 EFT132 
337 sERROR 143 CANT READ ZERO FROM COMP ERROR 
003162 3083 EMT143 
003164 EHT1 
Bie Sats a 
0031 7241 EFT1 
$00 sERROR 144 CANT SET COMP ERROR WITH RMER1 OR RMERZ 


003172 067 EMT144 
003174 8 $$ EHT1 
00317 7 EDT1 
00 07241 EFT1 


303 TERROR 145 COMP ERROR DID NOT SET 
003202 967522 EMT145 
SS Breage ET 
$035%0 $9 4 prio 

305 

309 ZERROR 146 CANT SET "GO" BIT 


003212 Tere: EMT146 
Bek ets at 
00 20 07541 EFT1 


sERROR 147 CANT READ A ONE FROM ‘'TST"’ 


008s 2 067 EMT 147 
3224 ¢ EHT1 
003 7. EDT1 
00 07241 EFT 
11 
31 sERROR 150 “TST'’ IS INCORRECT FOR THE FUNCTION CODE 
00 7374 EMT15 
aH arise 
724 EDT11 
4 72426 EFT115 
14 
38 zERROR 151 CANT SET THE ‘‘GO"’ BIT 


bs Us 


I 6 
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CZRNBAO 
ERROR POINTER TABLE 


ie 


~ SOBRE. ee 
eis 
1 


072410 


003312 oer eee 


003316 073400 
003 72426 


Da is 


“DRY'’ NOT THE COMPLEMENT OF ‘'GO’’ 


"G0"' RESET EARLY 


GO’ DIDNT RESET ON TIME 


CANT CLEAR CONTINUE 


CONTINUE IS INCORRECT FOR THE FUNCTION CODE 


CANT CLEAR IVC 


IVC IS INCORRECT FOR THE FUNCTION CODE 





SEQ 0073 
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ERROR POINTER TABLE 


339 ZERROR 161 CANT CLEAR LSC 
00 761 —MT161 
00 ¢ 8$ EHT1 t 
99 07 EDT 
50 07241 EFT 
1 
3g ZERROR 162 CANT SET LSC 
00335 7 EMT162 
Ba te a 
ier 07241 EFT 
4 ‘ 
us ZERROR 163 COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 
003 7646 EMT163 
posse OF ane 
003366 07 EDT 
003370 07241 EFT 
7 
af ZERROR 164 COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 
003372 067670 EMT 164 
003374 072062 EHT1 
003376 ore EDT1 
3400 072410 EFT 
330 
331 ZERROR 165 DECODE DOES NOT SET 
003402 067712 EMT165 
003404 000000 0 
003406 000000 0 
003410 000000 0 
53 
334 TERROR 166 CANT CLEAR OCCUPIED 
003412 0677 EMT166 
003414 9 26 EHT1 
003416 7236 EDT1 
003420 072410 EFT 
5 ‘ 
357 sERROR 167 ILF SET WITHOUT GO BIT 
3422 067756 EMT167 
3424 6 EHT1 
0034 7 S03 EDT1 
0034 07241 EFT1 





SEQ 0074 


CZ 
IN 


07002 
07226 
072 
072410 


070044 
072346 
072400 
072426 


sERROR 


zERROR 


;ERROR 


;ERROR 


170 


174 
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ERROR POINTER TABLE 


CANT SET VOLUME VALID 


ILF IS INCORRECT 


CANT SET OFFSET DIRECTION BIT 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 


READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


READ IN PRESET DIDNT CLEAR RMOF 


READ IN PRESET DIDNT CLEAR RMDA 


--RESERVED FOR POWER MONITOR BIT FAILURE-~ 


072362 
072410 


070212 
072262 
072362 
072410 


; ERROR 


zERROR 


ERROR 


202 
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ERROR POINTER TABLE 


CANT SET OFFSET MODE BY OFFSET COMMAND 


CANT RESET OFFSET MODE BY RTC COMMAND 


CANT RESET OFD BY RTC COMMAND 


CANT RESET OM BY RMDC 


CANT RESET OM BY EBL 


RUN AND GO NOT CORRECT FOR FUNCTION CODE 


CANT SET IAE ERROR 


SEQ 0076 
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ERROR POINTER TABLE ST. 












00 \3 143K EMT206 
00361 0 
elt 000000 3 
00 000000 
404 
rs 4 zERROR 207 IAE IS INCORRECT FOR FUNCTION CODE 
003622 070342 EMT207 
003624 072346 EHT150 
003626 076600 EDT115 
003630 072426 EFT115 
407 
ro} zERROR 210 IAE IS INCORRECT FOR RMDA 
003632 070356 EMT210 
003634 072322 EHT115 
003636 07 EDT115 
003640 072426 EFT115 
410 
$i} ERROR 211 IAE IS INCORRECT FOR RMDC 
003642 070374 EMT211 
003644 072322 EHT115 
6 072400 EDT115 
003650 072426 EFT115 
413 
rit ERROR 212 CANT SET AOE 
003652 070412 EMT212 
003654 076336 EHT142 
003656 072404 EDT132 
072432 EFT132 
416 
aie sERROR 213 RMR SET WHEN WRITING RMAS OR RMCS 
003662 070424 EMT213 
ae AG 
003670 072426 EFT115 
419 
re ERROR 214 CANT SET RMR 
003672 070454 EMT214 
003674 072352 EHT213 
76 072400 EDT115 
3700 072426 EFT115 


DRQ IS 0 AND PGM IS 1 
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ERROR POINTER TABLE sv 
003704 07 EHT1 
003708 ea EDT1 
710 07241 EFTI 
425 
426 ZERROR 216 DVA IS NOT SET 
003712 0705 EMT216 
003714 07226 EHT1 
003716 07236. EDT? 
003720 072410 EFTI 
428 
429 sERROR 217 DPR IS NOT SET 
003722 07052 EMT217 
003724 07226 EHT1 
003726 O72 EDT1 
3730 072410 EFT 
431 
432 ZERROR 220 CANT SET PORT REQUEST BY READING RMCS1 
003732 070536 EMT220 
003734 072356 EHT220 
003736 0724 EDT220 
003740 0724 EFT220 
434 
435 ZERROR 221 CANT SET PORT REQUEST BY WRITING RMAS 
003742 070554 EMT 31 
003744 072356 EHT220 
005746 0724 EDT 30 
003750 0724 EFT220 
437 
438 ZERROR 222 CANT SET PORT REQUEST BY WRITING RMDA 
003752 070572 EMT 
ee tie ae 
$037, 07 23 EFT 5 
440 
441 ZERROR 223 CANT RESET PORT REQUEST BY RELEASE COMMAND 
0037 70610 MT 
Bee tans ae 
$037 7 rk EFT 
443 , 
446 TERROR 224 CANT CLEAR ATA BY RMAS 
772 07 M226 
BORrre Oposes EMT 


8 7 
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ERROR POINTER TABLE 
a 4A 7236 EDT! 
000 b5ai EFT1 
446 
yr sERROR 225 ATA IS RESET BUT RMAS NOT ZERO 
004002 i ent ees 
004 73 6 EHT 
004 7 EDT? 
004010 072410 EFT1 
449 
3 sERROR 226 CANT RESET ATA BY GO 
004012 970679 EMT 226 
004014 07 $6 EHT1 
004016 8? 6 EDT! 
004020 07241 EFT 
re 
$32 sERROR 227 ATA NOT SET BY UNIT READY 
004022 0707 EMT 227 
004024 07226 EHT1 
004026 are7e EDT! 
004030 072410 EFT1 
455 
428 sERROR 230 ATA NOT SET BY UNIT READY 
004032 070724 EMT 230 
004034 b75908 EHT1 
004036 07236 EDT 
004040 072410 EFT 
458 
$25 sERROR 231 ATA NOT SET BY COMP ERROR 
004042 07074 EMT231 
004044 07226 EHT1 
004046 072356 EDT 
004050 07241 EFT 
461 
462 sERROR 232 ATA SET/DID NOT SET WHEN REGISTER WRITTEN 
rer : WHILE COMP ERROR WAS SET 
004052 070736 EMT23 
BE tte an 
002060 7 426 Eri 
465 
486 zERROR 233 ATA NOT SET BY COMMAND SEQUENCER 





¢ 7 
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ERROR POINTER TABLE 
004 72400 EDT115 
302070 873256 EFT115 
468 ; 
+33 sERROR 234 WLE INCORRECT ACCORDING TO FUNCTION CODE 
004072 Or 1gee EMT 234 
004074 072346 ENT 39 
004076 072400 EDT11 
004100 072426 EFT115 
471 
rte sERROR 235 CANT CLEAR EXCEPTION 
004102 071038 EMT235 
004104 072 ¢: EHT1 
004106 072 EDT1 
004110 072410 EFT1 
474 
ried sERROR 236 CANT SET EXCEPTION 
004112 071078 EMT236 
004114 4 22 EHT115 
004116 072400 EDT115 
004120 072426 EFT115 
477 
33 sERROR 237 CANT CLEAR IVC 
004122 07112 EMT237 
004124 07226 EHT1 
004126 O75 EDT1 
0041 07241 EFT 
480 
rt sERROR 240 CANT SET IVC 
004132 071122 EMT237 
0041 72346 ENT IY 
0041 72400 EDT11 
004140 072426 EFT115 
483 
ry sERROR 241 OPI NOT SET DURING RECALIBRATE 
004142 ora EMT241 
004144 07226 EHT1 
O04 188 34 EDT1 
00415 7241 EFT1 
486 
nt sERROR 242 RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET 
004152 07121 EMT242 
One lee 072365 ENT 
156 07 EDT1 


7 
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ERROR POINTER TABLE 
004160 072410 


Moo 
OOen 
oS 
~“ 


;ERROR 


s ERROR 


3ERROR 


EFT1 


245 


247 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING RECALIBRATE 


ATA NOT SET DURING RECALIBRATE 


GO RESET EARLY DURING RECALIBRATE 


GO NOT RESET DURING RECALIBRATE 


INCORRECT TAG BUS DURING RECALIBRATE 


OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT 
READY DROPPED . 


SEEK DID NOT ABORT WHEN DRIVE FAULT SET 


SEQ 0081 


zamom 
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00880 


Bs 
8:58 


CZRNBAO 
ERROR POINTER TABLE 


O7e0i0 


a 
Hs 
072410 


07226 


;ERROR 


zERROR 


zERROR 


254 


256 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEEK 


ATA NOT SET DURING SEEK 


GO RESET EARLY DURING SEEK 


GO DID NOT RESET DURING SEEK 


INCORRECT TAG BUS DURING SEEK 


OPI NOT SET DURING SEARCH 


SEARCH DID NOT ABORT WHEN DRIVE FAULT SET 


SEQ 0082 


C 
E 


00340 


O780i0 


7176 
7226 


3 ERROR 


zERROR 


261 


262 


265 


? 
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RROR POINTER TABLE 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEARCH 


ATA NOT SET DURING SEARCH 


GO RESET EARLY DURING SEARCH 


GO DID NOT RESET DURING SEARCH 


SEARCH ENABLE DIDNT SET DURING SEARCH 


INCORRECT TAG BUS DURING SEARCH 


OPI NOT SET BY SEARCH TIMEOUT 


-—ao 
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0044 
bce80 
5 
539 
558 
004432 
0044 
0044 


CZRNBAO 
ERROR POINTER TABLE 


eat 


ras 


07241 


oe 
i 
07241 


072120 
7 
7 
7241 


sERROR 


7 ERROR 


270 


271 


275 


276 
pnrere 
EHT 
EDT1 


OPI NOT SET DURING DATA COMMAND 


DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET 


EBL RESET EARLY DURING DATA COMMAND 


EBL DIDNT RESET ON TIME DURING DATA COMMAND 


GO NOT RESET DURING DATA COMMAND 


RUN AND GO NOT SET DURING DATA COMMAND 


INCORRECT TAG BUS DURING DATA COMMAND 


nao 
zen 


RNBAO 

ROR POINTER TABLE 
004520 072410 

or7 


004522 07215 
004524 07 
Sf 

5 7241 
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EFT 


301 


7 
SEQ 0085 


OPI NOT SEI DURING DATA COMMAND WHEN ON 
CYLINDER DIDNT DROP 


DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET 


SEARCH NOT ENABLED DURING DATA COMMAND 


READ IN PRESET DIDNT CLEAR RMDC 


3PUT ERROR TABLE HERE 


Oo 


1 7 
CZRNBAO RM8O_DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 9 SEQ 0086 
ERROR POINTER TABLE 


: :THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
004562 011 BADTMO: MOV (SP) ,RO sSAVE PC WHERE THE TIME OUT OCCURED 
% 004564 1806 TST - SADJUST PC <2 
5 004566 0 2626 c (SP)+, (SP)+ :RESTORE STACK POINTER 
é& 0043 104401 004576 TYPE 5$ ASCIZ STRING 
004574 7 BR $ *GET OVER THE ASCIZ 
ae i958: ~ASCIZ | SY BUS TIMEOUT, PC=/ 
7 004634 01 MOV RO,-(SP) ;SETUP FOR TYPING OUT PC 
8 004636 10440 TYPOC 
9 004640 :PUT "HALT(O)* INSTRUCTION HERE IF YOU WISH 
10 :TO STOP ON UNEXPECTED TIMEOUT. 
12 .SBTTL START OF PROGRAM 
14 004642 012737 177777 001330 START1: MOV #1, CHGADR ;CHANGE RH/RM BUS ADDRESS 
13 00465 BR START2 
17 004652 005037 001330 START: CLR CHGADR ZNO CHANGE IN ADDRESS 
18 004656 40 START2: NOP 
19 004 005 g 000000 INC #0 :TTY LOOP, WAIT FOR INCREMENT 
20 004664 001375 BNE 4 [OF WORD 
5 004666 RESET SRESET THE WORLD 
3 .SBTTL INITIALIZE THE COMMON TAGS 
73CLEAR THE COMMON TAGS (SCMTAG) AREA 
004670 012706 001114 MOV ASCMTAG,RO ssFIRST LOCATION TO BE CLEARED 
004674 005026 CLR (R6)+ *:CLEAR MEMORY LOCATION 
004676 022706 001154 CMP #SURRE 3 SDONE? 
004702 001374 BNE LOOP BACK IF NO 
004 012706 001100 < EeTUP THE STACK POINTER 
;: INITIALIZE A Fey ect oR 
004710 012737 056370 00002 #SSCOPE Se IOTV C s:]0T VECTOR FOR SCOPE ROUTINE 
004716 012737 340 0000 ROV {0 OTVEC+ 7 LEVEL 
004724 012737 05 310 0000 MOV pt: Serhon asEMTVEC "37 EMT VECTOR FOR ERROR ROUTINE 
004 012737 900 0000 MOV #356 a#EMTVEC+2 ;:LEVEL 
004740 012737 14 0000 MOV #STRAP SFTRAPVEC i TRAP VECTOR FOR TRAP CALLS 
004746 012737 0000 MOV #340 asTRAPVEC* téve 
004754 012737 42 4 MOV a#PURVEC boteR FAILURE VECTOR 
004762 12737 34 ; MOV G,aAbuRvEC® : LeveL 
770 013737 054140 0541 MOV SEND Nott 3:8 1 W0-0F 
004776 005037 001 06 CLR 2 ELITE NUMBER OF ITERATIONS 
005002 005037 00121 CLR SESCAPE T:CLEAR THE ESCAPE ON ERROR ADDRESS 
005006 112737 1 001131 MOVB » SERMAX 33ALLOW ONE ERROR PER 
005014 012737 003014 11¢¢ MOV 4.“ SLPADR t: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
005022 012737 005022 001124 MOV *SETUP THE ERROR LOOP ADDRESS 
3SIZE FOR A Hi HARDWARE Sulrch eecisien. IF NOT FOUND OR IT 
; T:EQUAL TO A ae A SOF WARE SWITCH REGISTER. 
005030 13746 000004 MOV AVEC 33 ERROR VECTOR 
005034 01 re 903070 MOV ith avec £1861 UP ERROR VECTOR 
005042 01 3 17757 one 00% , MOV #DSWR, SUR T:SETUP FOR A HARDWARE SWICH REGISTER 
005050 012737 177570 001156 MOV APSR SUR SAND A HARDWARE DISPLAY REGISTER 
005056 777 (177777 ~«17407 CMP #-1,aSUR +: TRY TO REFERENCE HARDWARE SUR 
005064 001012 :BRANCH IF NO TIMEOUT TRAP OCCURRED 
tZAND THE HARDWARE SWR IS NOT = - 
005066 000403 BR 65$ ?:BRANCH IF NO TIMEOUT 
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OMMON TAGS 


Waal 
oo 
ae 


BNROE 


Se 


PP 
Mun 
ANOsO 


DLSSBNKUBRUNASS 


sess ssssesssese 


Vin 
F a a 


SEGRE 
w 

== 

RNSER 


CZRNBAO 
INITIALIZE THE C 


_ 
TaN 
~ 


Seescena 
So cosus 
_ 


od ced 
=s 


005076 

176 
001230 
8 
001244 


004562 
000300 


177777 
054302 
005200 


000042 
001242 
001154 


000001 


sun 
sine 
as 


005360 


001332 


000042 


000001 
000176 


001150 


000041 


001332 


Pipe 


Moy #65$, (SP) 
MOV z3POINT TO SOFTWARE SWR 
MOV abi sPneg WO ISPLAY 
MOV (SP)+, SsERRVEC ygRESTORE ERROR VECTOR 
CLR SPASS s:CLEAR PASS C 
BIT8  #APTSIZE,SENVM 
BEQ 67$ USE NON-APT 
ee MOV ASSWREG, SUR 
3SETUP "‘TIMEQUT’’ TRAP ANECTOR FOR UNEXPECTED BUS TIMEOUTS 
MOV #BADTMO RVEC 
MOV APR, ERAVEC *LEVEL 6 
TYPE PROGRAM NAME 
TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC a1 3sFIRST TIME? 
68s NCH IF NO 
ASENDAD ,a#42 TACT 1? 
BeO 68$ : ;BRANCH 
TYPE 9$ iETYPE AS 


3769S: 
$: 
-SBTTL 


70$: 
71$: 


3 THE Ate wer FINDS OUT THE PROGRAM CONTROL MODE: 


PAPER 


1$: 


‘ig 


BR 
eASCIZ <CRLF>@CZRNBAO - 


ser VALUE FOR SOFTWARE SWITCH REGISTER 
a%42 WE ery UNDER XXDP/ACT? 


ARE WE RUNNING UNDER APT? 


0 
sea #1 
SWR ,ASWRE 
71$ 


71$ 
#1,SAUTOB 


33SET UP FOR TRAP RETURN 


OUNT 
se TEST USER SIZE_UNDER APT 
YES, SWITCH 
INO, Use APT SWITCH REGISTER 


sSETUP FOR UNEXPECTED TIMEOUT 


*peet over. tHe A SC1Z 
0 DISKLESS TEST. PT 1a<CRLF> 


3 7BRANC 
3 7BRANCH 


IF YES 
: SOFTWARE SWITCH REG SELECTED? 
SIGET SOFT-SUR SETTINGS 
33SET AUTO-MODE INDICATOR 


H IF 


APE (MANUAL), ACT11, XXDP CHAIN OR 


BR 
eASCIZ 
CLR 


TYPOS 
-BYTE 


XXDP 
#16,a441 


a440,XXDP 
| Cal 


XXDP 

are 

es 
73$ 


=(SP) 
XXDP, (SP) 
1 


3CLEAR ye LOAD DEVICE STORAGE 
ROM AN RM80 ? 


:LOADED,F 
31S 


CHAIN 
BR IF 


[BR IF NO 
[GET DEVICE INDICATOR AND NUMBER 
it IT A VALID NUMBER 
=NO, DEFAULT TO DRIVE 0 
N MODE OR ACT11 AUTO ACCEPT ? 

*;TYPE ASCIZ STRING 
723 + :GET OVER THE ASCI2Z 
<CRLF>/NOT TESTING DRIVE / 

CLEAR WORD ON STACK 
Ger DRIVE ADDRESS 

TYPE THE ADDRESS 
SONLY 1 CHARACTER 


zs 


SEQ 0087 


: 


Kk 7 
ZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 9-2 SEQ 0088 
T VALUE FOR SOFTWARE SWITCH REGISTER 
47 005415 .BYTE 0 :SUPRESS LEADING ZEROS 
48 005416 104401 001217 TYPE SCRLF CR=L 
49 005422 000460 BR $$ :GET NUMBER OF DRIVES 
2 005424 905227 177777 2$: INC #~1 sFIRST TIME THRU HERE ? 
5 0054 001055 BNE 3$ NO 
53 005432 104401 005440 TYPE 75$ 3s TYPE ASCIZ STRING 
005436 000410 4$ “GET OVER THE ASCIZ 
-:75$: .ASCIZ <CRLF>/TO TEST oRiVE / 
005460 74$: 
54 005460 005046 CLR -(SP) :CLEAR WORD ON STACK 
55 005462 115716 001332 MOVB =XXDP,, (SP) [GET DRIVE ADDRESS 
56 005466 10440 TYPOS [TYPE DRIVE ADDRESS 
57 005470 001 .BYTE 1 [ONLY 1 CHARACT 
58 005471 000 “BYTE 0 ; SUPRESS LEADING ZEROS 
59 005472 104401 005500 TYPE 76$ 33 TYPE ASCIZ STRING 
005476 000432 BR $$ [:GET OVER T Nsciz 


-:76$: .ASCIZ 7, HALT PROGRAM, CLEAR LGC. 40 AND RESTART PROGRAM. /<CRLF> 


1. 005564 33: 
64 CHECK FOR. AUTO MODE OR STANDALONE MODE 
65 005564 005037 001326 CLR AUTS1Z :LET AUTO DRIVE SIZING OCCUR 
66 005570 005737 000042 TST an2 ; RUNNING IN AUTO MODE ? 
67 005574 001537 BEQ STANDALONE IF 
68 005576 012737 000377 001300 MOV #377, $DEVM tSET DEVICE MAP FOR ALL DRIVES 
sPROGRAM IS RUNNING IN AUTO MODE = SEE IF SIZING IS ALLOWED 
71 005604 KSIZ: 
5604 132737 000200 001243 BITB #$#B1T7,SENVM zSIZING ALLOWED ? 
005612 001124 BNE 12$ NO 
75 005614 005601 CLR R1 START. FROM DRIVE 0 
76 005616 013700 001276 MOV S$BASE RO LOAD THE BASE ADDRESS 
77 005622 104401 063474 TYPE ,SYSTAT STYPE "UNIT STATUS:° 
79 005626 136137 063740 001300 1S: BITB ATNTBL(R1),$DEVM s1S DEVICE PRESENT IN MAP ? 
80 005634 001507 BEQ 11$ 3BR IE NO 
81 005636 104401 001217 TYPE  ,$CRLF =CR-L 
82 005642 01014 MOV R1,-(SP) EESAVE R1 FOR TYPEOUT 
005644 10440 TYPOS :G0 TYPE=-OCTAL ASCII 
005646 002 BYTE : Type % DIGIT(S) 
005647 000 “BYTE ::SUPPRESS LEADING ZEROS 
as 005650 104401 063632 TYPE ,BLNKS4 ‘TYP BLANKS 
85 005654 012760 000040 000010 MOV #cLR RMCS2(RO) ;CLEAR MASS BUS 
86 005662 010160 10 MOV CS2(RO)  :LOAD THE DRIVE ADDRESS 
87 005 5760 0012 TST Rabe (KOS ZACCESS DRIVE REGISTER 
88 005672 032760 01 000010 BIT #NED,RMCS2(RO) :1S DRIVE PRESENT ? 
89 0057 001027 BNE $ ‘BR IF NO 
90 00570 052 004000 000000 BIT WDVA,RMCS1(RO) :1S DRIVE AVAILABLE ? 
91 00571 14 BEQ at :BR IF NO 
4 00571 0127 3512 006052 MOV #SRMBO, 108 SASSUME RM8O DEVICE 
93 00572 760 020026 000026 CMP #20026, RMDT(RO) :SINGLE PORT 
94 0057 1407 BEQ 2$ ‘BR IF YES 
95 0057 22760 024026 000026 CMP #24026,RMDT(RO) :DUAL PORT RM8O ? 
96 005736 001403 BEQ $ ‘BR IF YES 
97 005740 104401 063517 TYPE  ,NOTRM *DRIVE NOT AN RM8O 


R 
< 
> 
cA 


338 


oO 
= 
w 
~ 
a 


—. — ee ees 
DONANEWVAOSRUIR ARAN 
EL 
one FS 


Seas 55 


BGs ee © 


ee ee Dee ee ee ee ee ae ed ee ced ce ced ed ced ed ed ed eed end ed 
s ~ 


MESBRNRRRIAS 


28 


010000 000012 2$: 


063551 


063566 
001326 


063740 
063605 


001332 
001332 
063534 


3$: 
4$: 
5$: 


6$: 


7$: 


8$: 
9$: 


10$: 
11$: 


12$: 
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SWITCH R 


11$ 
-Y actaaiaiaaes 


— 


eNOTAVL 
AUTSIZ 


11$ : 
ATNTBL(R1) ,SDEVM 
11$ 


UNTOF F 
$$ 


XXDP 
8$ 
XXDP,R1 
LODEV 
5$ 
~UNTON 
*BLNKS2 
0 
R1 
R1,47 
1$ 


-SCRLF 
CMNSTART 


SEQ 0089 


sDRIVE NOT PRESENT 
sCHECK NEXT DRIVE 


sDRIVE NOT AVAILABLE 
sAUTO SIZING ON ? 


-CLEAR DEVICE FROM BIT MAP 
:CHECK NEXT DRIVE 


sDRIVE OFFLINE 
sPRINT DRIVE TYPE 


LOADED FROM RM8O ? 
TIS THIS THE DRIVE ? 
‘DRIVE IS LOAD DEVICE 


sDRIVE ONLINE 

sTYPE 2 BLANK 

sPRINT DRIVE TYPE 
sMESSAGE ADDRESS HERE 


s INCREMENT THE DRIVE ADDPESS 
sALL DRIVES ARE CHECKED ? 
: CH IF NOT 


3CR-LF 
3 JUMP TO COMMON START 
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zi 
STANDALONE INPUT ROUTI 6 





1 .SBTTL STANDALONE INPUT ROUTINES 
§ 006074 STANDALONE : 
4 006074 004737 060730 JSR PC, $TKINT y INITIALIZE CONSOLE 
& 006100 005227 177777 INC #1 sFIRST TIME THRU HERE ? 
i 006104 001023 BNE 2$ :BR IF NO 
2 ;SEE IF OPERATOR WANTS HELP TEXT 
11 006106 104401 063064 TYPE §§ ,MSHELP :WANT HELP ? 
1g 006112 104411 RDCHR [GET RESPONSE 
13 006114 012637 001176 MOV (SP)+,$TMP1 SSAVE AND ECHO RESPONSE 
14 006120 123727 001176 000131 CMPB Ss STMP1.°Y *WAS IT A YES RESPONSE ? 
15 006126 001005 BNE $ iN 
1 006130 104401 001176 TYPE  ,$TMP1 YPE ° 
17 006134 104401 104536 TYPE HELP YES - Type HELP TEXT 
18 006140 000414 BR $$ 
19 006142 104401 06362 1$: TYPE 4N :TYPE 'N® 
20 006146 104401 00121 TYPE $CRLF CRLF 
gi 006152 000407 BR $$ 
33 ane sSEe IF USER WANTS TO CHANGE UNIBUS ADDRESS 
25 006154 005737 001330 TST CHGADR 3CHANGE RH/RM BUS ADDRESS ? 
26 006160 001475 BEQ 7$ [BR IF NO 
27 006162 005037 001330 CLR CHGADR {NO CHANGE NEXT TIME 
28 006166 104401 001217 TYPE  ,S$CRLF CRLF 
$0 meatal DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
= 006172 104401 063115 TYPE CNSLO1 i TYPE CURRENT . BUS ADDRESS 
33 006176 013746 001276 MOV $BASE ,-(SP) — $BASE F PEOUT 
006202 104402 TYPOC 35h" C PES OCTAL ASCII(ALL DIGITS) 
% 006204 104401 063634 TYPE ,BLNKS2 ippe 2 BLANKS 
5 006210 104413 RDOCT 3GET NEW BUS ADDRESS 
36 006212 012637 001176 MOV (SP)+,$TMP1 ;CARRIA GE RETURN ? 
37 006216 00141 BEQ 5$ “YES“SKIP TO NEXT ENT 
38 006220 022737 160000 001176 CMP #160000,$TMP1 BASE ADDRESS IN 1/0 RAGE ? 
39 006226 101403 BLOsS 4$ YES 
40 006230 104401 063125 TYPE CNSLO2 [TYPE WARNING MESSAGE 
41 006234 756 BR $ :TRY AGAIN 
4@ 006236 013737 001176 001276 4$: MOV STMP1, $BASE SSTORE NEW BUS ADDRESS 
44 006244 104401 063167 5$: TYPE  ,CNSLO3 
45 006250 005046 CLR - 
46 006252 113716 001272 MOVB = $VECT1, (SP) :GET CURRENT VECTOR ADDRESS 
47 006256 104402 TYPOC 
48 006260 104401 063634 TYPE ,BLNKS2 YPE 2 BLANKS 
49 006264 104413 RDOCT ahs NEW VECTOR ADDRESS 
50 006266 012637 001176 MOV (SP)+,$TMP1 SCARRIAGE RETURN? 
51 1430 BEQ 7$ SYES-SKIP TO NEXT ENTRY 
; 006 24 9 273 001000 001176 CAP #1000, $TMP1 EVECIOR OR ADDRESS < 1000 ? 
4 006304 104401 063176 TYPE NSLO4 i TYPE {WARNING MESSAGE 
55 006310 755 BR RB RETR 


56 006312 113700 001272 6$: MOVB $VECT1,RO 3GET CURRENT VECTOR ADDRESS 


o 
: 


N 
T1 MACRO V04.00 14-JAN-82 16/33:00 PAGE 10-1 rr 
TINES T 


; 
: 


#°C<377> RO LEAR SIGN EXTENSION 
(RO) + NCREMENT Y 
RO,-2(RO) ETUP TRAP CATCHER ADDRESS AND 
(RO) :PUT HALT IN TRAP ADDRESS +2 
THE RO *GET NEW VECTOR ADDRESS 
#IRP, (RO)+ [GET ADDRESS FOR INTERRUPT VECTOR 
SVECT1+1,(RO) GET PRIORITY LEVEL 
STMP1,S$VECT1 STORE NEW VECTOR ADDRESS 


“DIALOGUE TO INPUT DEVICE NUMBERS 
7$: INC fl SFIRST TIME THRU ? 


;BR IF NO 
~CNSLO7 sTYPE INPUT INSTRUCTIONS 
8$: SCRLF :CR 


° =L 
9$: CL DEVM sCLEAR DEVICE MAP 
eMSDRVS TYPE ‘DRIVE(S): ° 


(SP)+,$TMP1 3GET RESPONSE 
oo" of"A ‘3 INPUT ‘A’ ? 


San 
eee ° 


or 
_ 


ALL TYES, TYPE “‘ALL’* AND GO 
. #377, ,SDEVM :SET DEVICE MAP FOR ALL DRIVES 
xS1Z “AUTO SIZE 


STMPt ,#CR ; CARRIAGE RETURN ? 
SECHO RESPONSE 
[NUMBER < 0 ? 
YES 
[NUMBER > 7 ? 
SILLEGAL INPUT 


sin EERE 


a e 


(SP)+,$TMP1 3GET RESPONSE 
5 He ACR sCARRIAGE RETURN ? 


» COMMA “TYPE *, ° 

$TMP1 “ECHO RESPONSE 
$rmpi #0 NUN ER <0 ? 
STMP1,#°7 *NUMBER > 7 ? 


NO 
ENSLOB STYPE ** 2ILLEGAL INPUT" 
§ SRETRY 


ore! R1 3R1 = DRIVE NUMBER 


C7,R1 
ATNTAL (R1) , SDEVM :SET DEVICE IN MAP 
#377, $DEVM ZDONE ? 


NO 
:00 NOT AUTO SIZE WHEN TYPING DRIVE STATUS 
'G0 SIZE DEVICES 


3 =O 
MCMONIGAS 


i 
65 
66 
67 
71 
i 
24 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
4 
se 
94 
95 


Se Seessesses 
Roe SRA PDAAAAAAD 


SESSSRERSS SE 
: 


oP PS SS 
NNN 


_ 
So 
wo 





= 
= 
= 
i=] 
= 


Reseees 
INT. tre) 

ScossssS 

BuauERSS 


Bes 


QUSWN—OOONOULWN— 
=—oO— 


MALMIOLO 
=—oO0—-00 
R2=eses 


33s 


ead ad a od eh 


Hi 


25 
~“ 
=—Onw 


z 


333s 


gS 


“IN 


_ 

o' 
per tw Pert w 4 
Susu 


sss 


Ss 


Ww 
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ASSEMBLE TEST QUE FROM DEVICE MAP 
3416 DRIVES sTYPE "DRIVE(S) TO BE TESTED’ 
1300 $p EVM,RO RO = 
BR IF DRIVES TO TEST 
1 96306} 1S oma TTYPE ' A 
1 06 445 “NONE :TYPE NON ' 
1 001470 HTSTQUE+2,R1 -:R1 = ADDRESS OF FIRST ENTRY IN QUE 
7 001466 R1,TSTQUE STMITIALIZE ENTRY POINTER 
: 0001 #1,R2 *R2 = DEVICE POINTER 
R 'R3 = DEVICE NUMBER 
Re. RO 318 THIS DEVICE IN MAP ? 
1 063061 ‘coma vpé® 
1 R3, (R1) ‘VES - ENTER DEVICE NUMBER IN QUE 
6 R3,-(SP) t;SAVE R3 FOR TYPEOUT 
3 33G0 TYPE--OCTAL ASCII 
1 i3TYPE 1 DIGIT(S) 
0 SUPPRESS LEADING ZEROS 
063740 ATNTBL(R3),1(R1): ‘ENTER ATTENTION BIT IN QUE 
000002 #2,R1 SADVANCE ENTRY POINTER 
R2 TADVANCE DEVICE POINTER 
Re ;DONE ALL DEVI 
R3 SADVANCE DEVICE NUMBER 
2$ SENTER NEXT DEVICE 
(R1) S TERMINATE TEST QUE 
001217 »$CRLF STYPE CR-LF 
SIZE FOR CLOCK 
7 054322 JSR PC,SIZCLK :SEE IF CLOCK PRESENT 
5 BR TYES = CLOCK 1S PRESENT 
1 006740 65$ is TYPE ASCIZ STRING 
3 4$ i3GET OVER THE ASCIZ 
<CRLF>/NO 'L' OR’ *P* CLOCK/ 
7 000042 an42 sANY MONITOR PRESENT ? 
pe 5$ 'BR IF YES 
904652 START + JUMP TO START 
7 05427 SGET4 SRETURN CONTROL TO MONITOR 
3 READY 
9 sREADY TO START mi 
4 001300 SDEVN ZANY DRIVES IN 
! 000042 ars ZANY MONI TOR PRESENT ? 
465 START : JUMP TO START 
7 904538 $GET42 *RETURN CONTROL TO MONITOR 
7 001116 $TS :RESET TEST 
1206 $TI S INITIALIZE NUMBER OF ITERATIONS 
073 PC, $TKINT S INITIALIZE TT 
9009 #PRO,-(SP) + PUT NEW PS ON STACK 
062 #64$,-(SP) [:PUT NEW PC ON STACK 
+:POP NEW PC PS 


Am 


¢ 8 
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STANDALONE INPUT ROUTINES 


pth: 64$: 
$0 007062 117737 172400 001234 MOVB a@TSTQUE,SUNIT ;LOAD DRIVE NUMBER 
‘ sCLEAR MASSBUS CONTROLLER, SELECT. DRIVE AND SET LAST TRACK ADDRESS 
53 007070 913700 00127 MOV :R « UNIBUS ADDRESS 
4 007074 0127 60004 00 19 MOV #CLR sancszeno» iC “C SBUS 
§ 007102 11 760 172360 00001 MOVB  aTSTQUE WN PEEeT DEVICE UNDER TEST 
26 007110 012737 006400 001334 MOV STAB! TNT 2(R0 *SET LAST TRACK = 13. 
58 TYPE DRIVE NUMBER TO BE TESTED(SUNIT) 
59 007116 104401 901217 YPE SCRLF CRLF 
60 007122 105737 a3 $DEVM ZANY DRIVES IN MAP ? 
61 007126 001406 BEQ 1$ 
6¢ 7130 104401 0634 TYPE MSGDRV :TYPE "DRIVE* 
63 007134 013746 001234 MOV $UNIT,-(SP) ie SUNIT FOR TYPEOUT 
007140 104403 TYPOS 3:60 TYPE=-OCTAL ASCII 
007148 00 BYTE 2 iE TYPE 2 DIGIT(S) 
00714 “BYTE + :SUPPRESS LEADING ZEROS 
64 007144 005 1$: CLR RG ‘THESE TWO LOOPS ARE ADDED TO 
65 007146 005 4 DEC R4 SWAIT F 
66 007150 0013 6 E 72 
67 007152 005304 DEC RG 
68 007154 001376 E 72 





4-7 













K 


“no 
an 
aa 


FJ 
um 
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GE USAGE 


an 
ao 
= 
yn 
~ 
m 
2D 


-SBTTL REGISTER AND STORAGE USAGE 
sREGISTER ASSIGNMENTS 







3RO = UNIBUS ADDRESS OF RH_ CONTROLLER 

3R1 = OT UROER ENTRY IN TEST QUE CORRESPONDING TO THE 
sR2,R3 = WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 

; SAVED BY SUBROUTINES 

3R4,R5 = GENERAL WORKING REGISTERS, ARE NOT SAVED BY 

; SUBROUTINES 

26 = STACK POINTER 

3R = LINKAGE REGISTER TO SUBROUTINES 


s STORAGE ASSIGNMENTS 


3STMPO-STMP4 TEMPORARY STORAGE, NOT SAVED BY es eS. 
TSGDDAT,SBDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
ZSGDADR,$BDADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 
: ALSO THE ADDRESS OF A REGISTER ERROR 


5 a SH YH OS 


MnRoronronr 


ISTSIN = TEST ER 

sSUNIT = NUMBER OF DEVICE BEING TESTED 

sRGINBF = THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
; eorn agg #44 ER, AND IS USED WHEN READING STATUS AND 
sRGOTBF = THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 
: EACH REGISTER, AND is USED FOR ASSEMBLING DATA TO BE 


: WRITTEN IN REGISTERS 


-—o- 


are 


1 


s 


7204 


Ssssssssssss 
PVE Sees 


: 
: 


NN 


NNN 
= Nw 
aano 


| 
moo 


S8ssss 


ROROPOROROPONON 2 2 a ee 
— VSVRVRUALVSSenenewn—cownousuww 
—_ 


S3S83ssssss 


SEGRE LSS 
Sees 
SNSs 


Ss 
auee 
NNN 


<b 


SSR=S 
mn 
oles 


Rs 
WW 
NNN 


— 


2 
s 


001226 


000010 


RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13 
TRANSFER TEST 





SEQ 0095 


FERRARA AAAAAAAAAAAAAAERAEAERAEAERE ERA RAERERARRERRERERERRERARRERES 


S*TEST 1 TRANSFER TEST 
Re re een ok Race ac eileen See 
: SCOPE :SCOPE CALL 
MOV #STACK sP ;LOAD THE STACK POINTER 
MOV SE,R [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #1,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
MOV #0,R2 :R2 = REGISTER INDEX 
iCLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
" «JSR PC, CNTCLR 360 CLEAR CONTROLLER 
MOV RMCS2(RO) ,SBDDAT sSTORE RMCS2 AT SBDDAT 
ei! #NED ,SBDDAT 
MO (R1) ,SGDDAT 
BIC #°CUNTMSK , SGDDAT 
BIS #IR, SGDDAT 
MOV RO, $8DADR 
ADD #RMCS2, $BDADR 
EMT 1 
BR 60S 
READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 
DOES NOT SET 'NED'’ ERROR 
“mov RO.R3 3R3 = REGISTER ADDRESS 
ADD R2.R3 
mov (R35) ,R4 sREAD. REGISTER 
BIT WNED.RMCS2(RO) :1S "NED'' SET?? 
BEQ 70$ NO! ! 
JSR PC, CNTCLR 360 CLEAR CONTROLLER 
MOV RMCS2(RO) ,SBDDAT sSTORE RMCS2 AT SBDDAT 
eI! #NED, SBDDAT 
MOVB (R11), $SGDDAT 
BIC #°CUNTMSK , SGDDAT 
BIS aR $GDDAT 
MOV RO, $BDADR 
ADD #RACS2, $BDADR 
EMT 1 
BR 60$ 


sWRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
gpoes NOT SET “NED*’ ERROR 


MOV sWRITE REGISTER 
BIT 31S “NED SET?? 
BEQ ;NO!! 


#0, (R3) 
#NED ,RMCS2(RO) 
70$ 


3COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘'NED'* ERROR - 


001276 
054046 


001136 


$7500 
17200 00003 


000001 


001336 
oe oe 
000032 001 7 
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zADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 


AVAILABLE DEVICE REGISTER 
ids: 


21ST 


yes = = TRY NEXT REGISTER 


31S THI 


sYES = TRY NEXT REGISTER 


HIS THIS RMCS2?? 


riety TO NEXT REGISTER 
RMWC?? 


TRY ANOTHER REGISTER 


1s THIS 


7YES = TRY as | a REGISTER 
RMDB?? 


HIS THIS 
1s THIS A LEGAL 


7YES = TRY THIS REGISTER 


G0 SELECT NEXT DEVICE 


TRY ANOTHER REGISTER 
REGISTER 


{GOT "NONEXISTENT DEVICE’ ERROR FOR EVERY REMOTE REGISTER ADDRESS 
: STORE BASE ADDRESS 


FRRAARAAAAREAAARAARERERERERERARARARERERRARERRERRERERERRRRRERERREE 


© RRRARAAREARARRREERREREREEEEEERERAERARRARARAARERRAEREREEEEERERRRRREEE 


sSCOPE CALL 
sLOAD THE a. POINTER 
DRESS 


3SEE IF ANY ONE BITS CAME BACK 


MOV SBASE , SBDADR 
60$:  JMP SEOSP 
70$: 
tSTEST 2 CTOD TEST 
tsT2 
SCOPE 
NOP 
MOV ESTACK SP 
MOV 
MOV rt R1 
MOV #2,$TESTN 
JSR PC, CNTCLR 
:WRITE ONES IN REMOTE memEST 
MOV F76,RMCS1(R i 
MOV #=1,RMDACR 
MOV aCYLMSK rot crop? 
MOV #°CXNUOF , RMOF (RO) 
MOV FCXNUOF. *RMOF (RO) 
:READ REMOTE REGISTERS TWICE 
ie MOV #1,R2 
“MOV RMCS1(RO) ,RMCS11 
MOV RMDACRO) .RMDAL ; 
MOV RMDC (RO). RMDCI 
MOV RMOF(RO),RMOFI ; 
DEC Re 
BPL 108 


-ST 
sSTORE RADA I 
SSTORE RMDC i 


;RO = UNIBUS AD 


ikl , POINTER TO DEVICE 
T TEST NUMBER IN APT MAIL BOX 


3G0 CLEAR CONTROLLER 


SEQ 0096 


FERERSSSSLISLE 
ss 
33 


ae at a oe a at 


o 
~N 


007704 


ss 
AB 
SO 


Sue APwaOSe 
S 
Ww 
%~™ 


a8 
Re 


RRAVLS 
sees 
Si: 


aot od 
Ssss 
MBP 


oD 
oo oooo 


ee eh ee ee ee ee me ee me ee me ed ae ae ed ee ed ed ed td td od = 
on 
NON 
DH 


SERRA 


177701 
001344 
176000 
160577 


055156 
000000 
000014 
00042 


177701 


> W770? 


177777 
177777 


001336 


001372 
001370 


001226 
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33SET TEST NUMBER IN APT MAIL BOX 


;LOAD RMCS1 


oo 


3SET ANY BIT NOT WRITTEN 


BIC #°CILF76,RMCS11 :1S RMCS1 07? 

BNE 20$ sNO!! 

TST RMDAI 71S RMDA 02? 

BNE 20$ NO! ! 

BIC AXNUDC,RMDCI 31S RMDC 07? 

BNE 208 sNO!! 

BIC AXNUOF ,RMOFI 31S RMOF 0 ?? 

BNE 20: zNO!! 
3 CANNOT READ/WRITE A ONE FROM ANY REMOTE REGISTER 
20S: 
J ERRRAAAAAEAAARAAERAREAERAEAAERERERRARERERERERERERRERERREREREERERE 
SeTEST 3 MASSBUS INITIALIZE TEST 
Seeger 20 soc Son magma tit Par ee: 

T3: 

SCOPE :SCOPE CALL 

MOV #STACK sp ;LOAD THE STACK POINTER 

MOV S$BASER *RO = UNIBUS ADDRESS 

MOV IsTQue R1 :R1 = POINTER TO DEVICE 

MOV #3, $TESTN 

JSR PC, CNTCLR 360 CLEAR CONTROLLER 
:WRITE ONES IN SELECTED REGISTERS 

MOV #ILF76,RMCS1 (RO) 

MOV #1 .RMER] (RO) ZLOAD RMER1 

MOV #-1.RMERZ(RO)  :LOAD RMER2 
ZINITIALIZE MASSBUS WITH A CLEAR 

JSR PC,CNTCLR 360 CLEAR CONTROLLER 
;READ THE REGISTERS THAT WERE WRITTEN 

MOV RMCS1(RO) ,RMCS11 STORE 

MOV RMERT (RO) RMERI I 

MOV RMER2(RO) .RMERZI 
:SEE IF ANY REGISTER eITS WERE CLEARED 

BIS #°CILF 76 RACS I 

BIS XNUER2 ,RMERZI 

ce #-1,RMCS11 ZANY, ZEROS IN RMCS1?? 

cme #-1,RMER1I ANY ZEROS IN RMERI?? 

CMP #~1, RMER2I1 SANY ZEROS IN RMER2?? 

BNE 10$ 


3NONE OF THE BITS WERE CLEARED 
EMT “ 


10$: 


s*TEST 4 


CLEAR STUCK ACTI 


VE TEST 


5 RRAAAAAAAAAAAAAAAEAEAAARAREAAAAAAAAAAEAAAAAAAERAEAAAAAAREAAAARES 


SEQ 0097 


“mo 


H 8 
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14 CLEAR STUCK ACTIVE TEST 


caer one Hp” ote i gia pre amet ene Sebi 
1 T4: 
1 SCOPE :SCOPE CALL 
1 40 NOP 
1 1 1100 MOV #STACK s THE STACK POINTER 
1 1 12 76 MOV S$BASE,R ik = UNIBUS ADDRESS 
1 13701 0014 MOV TSTQUE ,R1 R1 = POINTER TO DEVICE 
' 1 1 001226 MOV #4, STESTN eSET TEST NUMBER IN APT MAIL BOX 
133 010054 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
141 WRITE ONES IN TEST REGISTERS 
16g 010060 012760 177777 14 #=1,RMERI(RO) LOAD RMERI 
14 910066 12760 177777 2 mov a) <ARER (RO) SLOAD MER? 
168 010074 012760 24 MOV #0MD,RMMR1(RO) LOAD RMMR 
146 ;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 
147 910102 16037 14 oo1e9 MOV RMER1 ( mn /RMERTI zSTORE RMER1 IN INPUT BUFFER 
148 010110 016037 2 MOV MER? (R )? ) -RMERE! [STORE RMER2 IN INPUT BUFFER 
149 010116 016037 24 00136 MOV RMR ( “STORE RMMR1 IN INPUT BUFFER 
150 010124 0000 BIC we weir :DONT ACCEPT UNSAF 
151 0101 oor011 BNE : H IF ANY OTHER BITS ON 
13¢ 0101 2737 040200 001400 BIC #SKI'!DVC,RMER2I :DONT ACCEPT SKI OR DVC 
153 010142 001005 BNE 108 [BRANCH IF ANY OTHER BITS ON 
154 910166 032737 000001 001362 BIT #DMD ,RMMR1I [BRANCH IF DMD IS ON 
155 010152 001001 BNE 10$ 
156 010154 104026 EMT 26 
137 010156 108: 
159 FRRAAAAAAAAAAARARAAREAAEEAAAEREAARAAARAEEREEAEREREREEERERERERREERE 
tSTEST 5 TRISTATE TRANSFER TEST 
© RRAAAAAARAAAAAEARARAREEAEERARARAAARAAARAARAARAARARRARERAARAAARARAREE 
010156 S15: 
010156 000004 SCOPE :SCOPE CALL 
010160 40 NOP 
010162 012 1100 MOV ESTACK i LOAD THE THE ST STACK POINTER 
010166 0137 1276 MOV BUS ADDRESS 
010172 01 701 1466 MOV TST SeAse AD R1 = SINTER TO DEVICE 
io 010176 012737 000005 001226 MOV TeTQUE tN +:SET TEST NUMBER IN APT MAIL BOX 
161 010 005 CLR R2 :CLEAR ERROR F 
lee 010306 902988 055156 JSR PC, CNTCLR '60 CLEAR CONTROLLER 
164 :WRITE ONES IN SELECTED REGIS STERS 
165 010212 0127 7 MOV 6, RMCS1 (RO) LOAD RMCS1 
166 010, 127 7 MOV at ZLOAD RMDA 
167 010226 012760 177 1 i0V #~1.RMER1(RO) LOAD RMER1 
168 01 12760 177777 AOV #~-1.RMOF(RO) LOAD RMOF 
01 42 12760 1777 MOV #~1.RMOF(RO) | :LOAD RMOF AGAIN TO SET SSE! 
169 01 12760 177777 MOV #-1-RMERZ(RO) LOAD RMER2 
171 WRITE ZEROS IN SELECTED REGISTERS 
17 10256 127 RMCS1(RO)  ;LOAD RMCS1 
173 010 127 mov “RRIDACRO) [LOAD RMDA 
17% 10878 127 1 MOV *RMER1(RO)  :LOAD RMERI 
175 010 127 32 MOV * RMOF (RO) [LOAD RMOF 
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is 


TRISTATE TRANSFER TEST 
176 010 127 34 MOV RMDC (RO) ;LOAD RMDC 
i oroae 913788 nat ies MOV *RMFR2(RO) LOAD RMER2 
1 ;READ BACK ALL REGISTERS 
180 1 16037 1 36 MOV RMCS1(RO) ,RMCS1I >STORE RMCS1 IN INPUT BUFFER 
181 01 160 7 1 MOV RMDA(RO),RMDAI ;STORE RADA IN INPUT BUFFER 
188 1 16037 1 1 3 MOV RMER1 (ROS ,RMERTI -STORE RMER1 IN INPUT BUFFER 
183 010 16037 32 1 MOV (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
184 010352 016037 137 MOV RMDC(RO).RMDCI STORE RMDC IN INPUT BUFFER 
185 10 16037 2 0014 MOV RMER2 (ROS ,RMERZI :STORE RMER2 IN INPUT BUFFER 
189 :CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ 
188 010 1 3 177777 MOV #-1,R sACCUMULATE ZEROS IN R 
189 0105 0} ? , 177201 one? BIS aciLe76 RMCS11 :SET ALL BITS NOT WRITTEN 
191 010406 052737 1 901 7 BIS #XNUDC -RADCI 
192 010414 03 7 001327 14 BIS AXNUER?, RMERZI 
19 0104 2 137 001 COM RMCS1I ;COMPLEMENT REGISTER CONTENTS 
194 010426 005137 001344 COM RMDAI 
195 9104 005137 00135 COM RMER11 
196 10436 005137 00137 COM RMOF I 
13 G1aeeg Bieler Biep ue 
199 01045 04 20 1 % BIC RMCS11,R2 ACC TE ALL ZERO BITS 
200 0104 7 1344 BIC RMDAI ,R 
201 01 04 70 138 BIC RMER1I,R2 
202 010466 70 137 BIC RMOF IR 
SIRte Setes Sob sets 
5 010 Mey 10s ;BRANCH IF EACH BIT IS ZERO 
? ZONE OR MORE BIT POSITIONS ARE NOT ZERO 
010504 010237 114 MOV R2,$BDDAT >SAVE RESULT FOR TYPE 
09 910510 05037 114 CLR SGDDAT ;LOAD EXPECTED RESULT 
HE o10816 052702 000001 BIS #BITO,R2 ;SET ERROR FLAG 
ig 010522 10S: 
m 010522 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
$i sPRESET SELECTED REGISTERS TO ZEROS 
1g (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 
i Biss O13 760 ited im atte Rov #0 .RBACRO} 1 OD RMOF 
9 10542 012760 000000 0000 MOV oO mec {ROD [LOAD RMDC 
5) 010550 012760 00007 Delitlelie* able id est LOAD RMCS1 
228 010386 127 90008 MOV #1 RRGAC 3) “LOAD RMDA 
4 10564 127 17 MOV #°CKNUOF , RMOF (ROS zl 
0105 12760 017 0000 MOV #°CXNUOF , RMOF (RO) [LOAD RMOF AGAIN TO SET SSEI 
5 or 127 1 MOV #*CXNUDC RMDC (RO) : 
10606 012760 177777 14 MOV #-1, RMER1 (RO) gL OAD RMER1 
010614 012760 176250 2 MOV #°CKNUER2 ,RMER2 (RO) ZLOAD RMER2 


Pohonononorny 
SBBVER 


sREAD ALL REGISTERS 
MOV 


010622 016037 000000 001336 RMCS1(RO) ,RMCS1I sSTORE RMCS1 IN INPUT BUFFER 





8 
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T TRISTATE TRANSFER TEST 
10630 16037 1344 MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
1 16037 137 MOV RMOF (RO).RMOFI :STORE RMOF IN INPUT BUFFER 
10644 016037 137 MOV RMDC(RO)-RMDCI :STORE RMDC IN INPUT BUFFER 
10652 016037 14 00135 MOV RMER1 (ROS ,RMER11 sSTORE RMER1 IN INPUT BUFFER 
Seas 16037 2 0014 MOV RMER2(RO) .RMERZI [STORE RMER2 IN INPUT BUFFER 
sCHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
010666 042737 177701 001 BIC #°CILF76,RMCS1I 3CLEAR ALL BITS NOT WRITTEN 
1 042737 160577 001 BIC #XNUOF , RAOF I 
910 04 737 (1 6000 137 BIC #XNUDC-RMDCI 
1071 7 00152 14 BIC AXNUERS, RMERZI 
1071 00 CLR R2 sACCUMULATE ONES IN R2 
107 5 1336 BIS RMCS11,R2 sACCUMULATE ALL ONE BITS 
10724 05370 1344 BIS RMDAI,R 
10 5370 1370 BIS RMOFI<R 
107 53702 00137 BIS RMDCI.R 
47 010740 053702 00135 BIS RMERTE RE 
48 010744 05370 0014 BIS RMER21.R 
49 910750 022702 1777 CMP #-1,R2 sSEE IF EACH BIT POSITION WAS ONE 
sr 10754 00141 BEQ 20$ [BRANCH IF NONE STUCK 
3¢ sONE OR MORE BIT POSITIONS ARE NOT ONE 
$3 0107 910237 901142 MOV R2,$BDDAT :SAVE RESULT FOR TYPE 
54 010762 012737 177777 001140 MOV 4-1, SGDDAT TEXPECTED RESULT 
255 010770 104006 EMT 6 
56 010772 052702 000002 BIS #B1T1,R2 :SET ERROR FLAG 
57 010776 20S: 
58 010776 005702 TST R2 sANY ERRORS DETECTED ?? 
59 011000 1130 BNE 30$ “YES = DONT DO BIT TEST 
011002 012702 000001 MOV #1,R2 +R2=BIT POSITION 
011006 25$: 
a. 011006 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
264 ;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 
265 011012 010260 MOV R2,RMDA(RO) 3LOAD RMDA 
266 011016 010260 0000 MOV R2.RMOF (RO) [LOAD RMOF 
911028 010260 00003 MOV R2.RMOF (RO) [LOAD RMOF AGAIN TO SET SSEI 
267 11086 10260 000034 MOV R2.RMDC (RO) ; RMDC 
0110 10260 000014 MOV R2.RMER1(RO)  :LOAD RMER1 
69 11036 010260 000042 MOV R2.RMER2(RO) LOAD RMER2 
71 sREAD BACK THE REGISTERS 
2 01104 9160 ? 001344 MOV RMDA(RO) RMDAI ;STORE RMDA IN INPUT BUFFER 
11050 016037 001 7 MOV RMOF (RO). RMOFI :STORE RMOF IN INPUT BUFFER 
74 011056 016037 34 00137 MOV RMDC(RO).RMDCI :STORE RMDC IN INPUT BUFFER 
75 011064 0160 7 14 001 5 MOV RMER1 (ROS ,RMERTI sSTORE RMER1 IN INPUT BUFFER 
%6 011072 016037 000042 0014 MOV RMER2(RO) .RMERZI *STORE RMER2 IN INPUT BUFFER 
78 :CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
79 11109 005003 CLR R sR3=ACC TED ONE BIT 
80 01110 012704 177777 MOV #=1,R4 *R4=ACCUMULATED ZERO BITS 
81 0111 13705 001344 MOV RADA .RS sGET ANY GOOD BITS FROM RMDA 
82 1111 30503 BIS RS,R 
Bitte. Sess fe a 
85 11420 13708 001370 MOV RMOF1,RS :GET GOOD BITS FROM RMOF 


3 
34 
35 


RNBAO RM80_ DSKLS PT1 
TRISTATE TRANS 
11124 
eds 
88 0111 18 
89 0111 9 705 
1114 5 
1 01114 13705 
§ an 705 
11152 05050. 
011154 00510 
5 311128 705 
as Hee 
sie Se 
011172 005105 
011174 9308 
1 atts 13705 
; 011 2705 
011 50503 
at 1 5105 
5 01121 4 
01121 504 
? 011220 010205 
O11222 005105 
011224 040503 
10 011 040204 
11 011 050403 
\¢ 011232 020302 
13 011234 ponses 
314 O112 01023 
315 oi iSe 010337 
316 011246 104007 
317 011250 000404 
318 
19 
011252 
$5 Ot 1S36 006302 
§ 011254 001402 
32 o11$38 000137 
324 011262 
O11¢65 
01126 
He 
Sse Sis 
011 is 13701 
011 012737 


FER 
160577 


160577 


976000 


176000 
001352 


0014 
00152 


001527 


011006 


001226 
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BIC #XNUOF ,RS 
BIS RevRS 
COM R5 
BIC #XNUOF RS 
BIC RS,R4 
MOV RMDCI,RS 
BIC #XNUDC RS 
BIS R5,R3 
COM R5 
BIC #XNUDC RS 
BIC RS,R4 
MOV RMER11,R5 
BIS R5,R3 
are 
MOV RMER2ZI RS 
BIC #XNUERC RS 
BIS R5.R 
COM RS 
BIC AXNUER2 RS 
BIC RS,R4 
MOV R2.RS 
COM R 
BIC R5,R3 
BIC R2.R4 
BIS R4,R3 
CMP R3,R2 
BEQ 6$ 
MOV Re. SGDDAT 
MOV R3,$BDDAT 
EMT 7 
BR 30$ 

56$ 
ASL R2 
BEG 30$ 
JMP 25$ 

30$: 


s*TEST 6 


. 
© RRAERRAEAEAAAEAEEEEEREREEEEREEEREREAEAERARREREEEREREEAREEEREERRREREE 
. 


SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 


GET GOOD BITS FROM RMDC 


3GET GOOD BITS FROM RMER1 


:GET GOOD BITS FROM RMER2 


3RESET ALL_ONES IN R3 EXCEPT 


sFOR THE TEST BIT 


sRESET TEST BIT IN R4 
NE ACC 


COMBINE ACCUMULATED 1°S + 0°S 
oe OK?? 


sSAVE TEST PATTERN 
3SAVE RESULT 


3SKIP TO NEXT 
;ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 


SHIFT THE BIT 
sEXIT IF DONE 


. REGISTER SELECT TEST 
3 *NOTE: REGISTER SELECT 16 IS TESTED BY THE “‘ILR’’ TEST 


#STACK, SP 


TSTQUE ,R1 
#6, $TESTN 


sSCOPE CALL 


5 RRAAAEARARERARARRREEEAEERERERERAERERRERERERRARRERRERRERERERERERE 


aL THE STACK POINTER 
RO = ADDRESS 


UNIBUS 
3R1_ = POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


3THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
sEACH DEVICE REGISTER 


SEQ 0101 
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REGISTER SELECT TEST 


16 


Eso 


4 
5 
7 
348 
349 
350 
351 
$28 
35 
354 
355 
356 
57 
58 
59 
360 
361 
362 
363 
364 
365 
366 011310 
367 011312 
368 
369 
3/0 011316 
71 011322 
378 011326 
; 011332 
74 011336 
oe 011342 
76 011350 
77 011356 
78 011 
79 011364 
011372 
1 311778 
11400 
3 
5 11408 
1140 
11698 
388 01141 
Bt1238 
a sii 
91 11458 


3 


222 
aoe 
a 


Cooooooeeo 
o2-=NNNNN 


_ 
= 
SSM 


: REGISTER REG SEL 

; NAME (16,8,4,2.1) 

: RMCS1 00000 

: RMDS 00001 

: RMER1 00010 

; RMMR1 0011 

: RMAS 00100 

: RMDA 00101 

: RMDT 00110 

; RMLA 00111 

; RMSN 01000 

; RMOF 01001 

: RMDC 01010 

: RMHR 01011 

; RMMR2 01100 

; RMER2 01101 

; RMEC1 01110 

; RMEC2 01111 

sEACH REGISTER SELECT LINE IS 

*STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST 
: “A-0, RMER1 IS WRITTEN WITH 2 
*THAT HAS THE SAME SELECT VALUE, EXCEP 
BEING TESTED. IS WRITTEN WITH ONES. I 


° ITTEN WITH ONES. IF SEL 
3THE ALL_ONES WORD WILL BE 
sWILL NOT BE 0 WHEN READ BACK. 


CLR R2 
MOV 


TESTED FOR A STUCK AT ONE, 


#-1,R3 

sTEST REG SEL 1 FOR S-A-0 
JSR PC, CNTCLR 
MOV R2.RMER1 (RO) 
MOV R2.RMDC (RO) 
MOV R3.RMMR1 (RO) 
MOV R3,RMHR(RO) 
MOV RMER1(RO) ,RMER1I 
MOV RMDC(RO) ,RMDCI 
CMP R3,RMERTI 
BNE 10$ 
BIS #XNUDC ,RMDCI 
c R3,RMDCI 
BNE 108 
EMT 1 

Test REG SEL 1 FOR S-A-1 
JSR PC, CNTCLR 
MOV R2.RMDA(RO) 
OV R2_RMOF (RO) 
MOV R2_RMOF (RO) 
MOV R2.RMER2 (RO) 
MOV R3. S(RO) 
MOV R3_.RMSN(RO) 


WRITTEN IN RMER1, AND RMER1 


sR2= ZEROS SOURCE 
3R3= ONES SOURCE 


360 SLE SORRELLES 


3 LOAD 


;STORE RMER1 IN INPUT BUFFER 
sSTORE RMDC IN INPUT BUFFER 


LOAD RMO 


: F 
sLOAD RMOF AGAIN TO SET SSEI 
LOAD RMER2 

OAD RMAS 


sb 
3LOAD RMSN 


3G0 CLEAR CONTROLLER 
;LOAD RMDA 


EST REG SE 
EROS. THEN THE REGISTER 
T FOR THE SELECT LINE 


SEQ 0102 


=“ 
et 


aM 


om 
sssseseumunanse § 


REGI 
114 
1144 
114 
11456 
011 
0114 
114 
115 
11504 
11506 
aE 
38 
407 011524 
408 011524 
409 0115 
410 011534 
011540 
411 011544 
tig 011550 
413 011554 
414 011560 
415 011564 
oig 011572 
417 011600 
418 011606 
419 011612 
420 011614 
i) Sits 
423 611630 
424 011638 
425 911642 
426 011644 
427 
428 
429 011646 
430 O1tees 
PH: 
+ 
433 11663 
434 011670 
435 011674 
436 B11 708 
437 01171 
438 011716 
439 SEES 
440 11763 
ih Sr 
23 811928 
44S 
445 
466 01174 
447 01174 


COQOooocooo 


sss 
a 


@ 


004737 


055156 


BNE 
EMT 


E 
EMT 


E 
EMT 


JSR 


TEST REG SEL 2 
20S: 


TEST REG SEL 2 
50S: 
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STER SELECT TEST 


R3,RMMR2(RO) LOAD _RMMR2 
RMDA(RO),RMDAI STORE RMDA IN INPUT BUFFER 
RMOF (RO) -RMOFI :STORE RMOF IN INPUT BUFFER 
RMER2 (ROS ,RMERZI :STORE RMER2 IN INPUT BUFFER 
R3,RMDAI 
FIMUOE RWOF 
B38 . 
#XNUER2 ,RMERZI 
R3,RMERCL 
208 
11 
FOR S-A-0 
PC,CNTCLR 360 CLEAR CONTROLLER 
R2.RMDA(RO) SLOAD RMDA 
R2_RMOF (RO) SLOAD RMOF 
R2.RMOF (RO) [LOAD RMOF AGAIN TO SET SSEI 
R2.RMER2(RO) LOAD RMER2 
R3.RMLA(RO) [LOAD RMLA 
R3_RMHR (RO) : 
R3-RMEC2(RO [LOAD RMEC2 
A(RO),RMDAI STORE RMDA IN INPUT BUFFER 


RMD. 
RMOF (RO) ,RMOFI  ;STORE RMOF IN INPUT BUFFE 


FFER 
RMER2(ROS ,RMERZI sSTORE RMER2 IN INPUT BUFFER 
#XNUOF , RMOF I 

R3 ,RMOF I 

#XNUER2 , RMER21 

R3,RMERC1 

30$ 

12 

FOR S-A-1 

PC, CNTCLR 3G0 CLEAR CONTROLLER 

R -RMER (RO) [LOAD RMERI 

#ILE76-RACSI (RO) sLOAD RMCS1 

R3, RMSN(RO) :LOAD RMSN 

RMER1 (RO) ,RMER1I *STORE RMER1 IN INPUT BUFFER 


RINNE (RO) -RMDCI :STORE RMDC IN INPUT BUFFER 
#°CILF76,RMERII 
R3,RMERTE 


40 
#XNUDC ,RMDCI 
R3,RMDCI 

498 

1 


TEST REG SEL 4 FOR S-A-0 
40S: 


PC, CNTCLR 3G0 CLEAR CONTROLLER 


SEQ 0103 


18 


—0 


pas RM80 DS 
REGISTE 
“ 117 
449 01175 
117 
450 0117 
451 0117 
& § 11 
453 011 
454 01200, 
i Sn 
i 12024 
458 0120 
459 01205 
460 01204 
461 ot 044 
is Sete 
464 $1306 
465 013062 
466 
467 
468 015068 
469 012064 
470 012070 
471 012074 
af 012100 
473 012104 
gisti? 
474 012114 
475 Oils 
is $8 
478 01 136 
479 012144 
480 012150 
481 012152 
482 
483 
484 Oic 134 
485 Bt 154 
is Sei 
488 01 190 
489 012174 
490 012200 
491 012206 
492 012214 
493 01 
494 01 
i 8 
i 
498 
499 
00 
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hMroroergs 
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00137 
001370 


001372 


001344 
001400 


001400 


1352 
1344 


sTEST REG SEL 4 
50S: 


sTEST REG SEL 8 
60S: 


EMT 
TEST REG SEL 8 
"JSR 
MOV 
MOV 
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) 
RMDAI 
RMER2(ROS ,RMERZI 
R3,RMDAI 


6 

AXNUER2 ,RMER21 
R3,RMERCI 

8 


FOR S-A-0 


PC,CNTCLR 
R2,RMER1 (RO) 


FOR S-A-1 


PC, CNTCLR 
Re AOE ) 
R2,.RMOF (RO) 


SEQ 0104 


RMER1 

OAD RMOF 

OAD RMOF AGAIN TO SET SSEI 
RMDC 


SESSeee 
325 


-STORE RMER1 IN INPUT BUFFER 
TORE RMOF IN INPUT BUFFER 
TORE RMDC IN INPUT BUFFER 


aun ooce 


:G0 CLEAR CONTROLLER 
: RMDA 
LOAD RMER2 
;LOAD RMDS 
;LOAD RMOF 
;LOAD RMOF AGAIN TO SET SSEI 
sSTORE RMDA IN INPUT BUFF 
sSTORE RMER2 IN INPUT BUFFER 


GO CLEAR CONTROLLER 
RMER1 
RMDA 


RMER2 
-STORE RMER1 IN INPUT BUFFER 
sSTORE RADA IN INPUT BUFFER 


GO CLEAR CONTROLLER 
LOAD RMOF 
LOAD RMOF AGAIN TO SET SSEI 


C 


— 


B 
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SEQ 0105 
REGISTER SELECT TEST 
508 012246 01 34 MOV R2,RMDC (RO) :LOAD RMDC 
03 012052 01 MOV R2.RMER2(RO) LOAD RMER2 
04 012256 01 1 MOV R3.RMDS (RO) [LOAD RMDS 
05 01 1 1 MOV R3.RMER1(RO) § :LOAD RMERT 
506 01 1 MOV R3.RMDA(RO) [LOAD RMDA 
507 Olee72 0160. 0 001370 MOV F(RO),RMOFI :STORE RMOF IN INPUT BUFFER 
508 01 16037 034 00137 MOV RMDC(RO)-RMDCI :STORE RMDC IN INPUT BUFFER 
509 01 160 7 é 91400 MOV RMER2(ROS ,RMER2I sSTORE RMER2 IN INPUT BUFFER 
510 012314 052727 16057 1370 BIS AXNUOF , RMOF 1 
511 012322 1015 BNE : 
218 012324 0 2737 176000 001372 CMP AXNUDC RMDCI 
31 012332 020337 001372 CMP R3,RMDCI 
14 01 901007 BNE 80 
515 012340 052737 001527 001400 BIS AXNUER2 ,RMER21 
516 012346 020337 001400 CMP R3,RMERC1 
517 012352 001001 BNE 808 
518 012354 104017 EMT 1 
319 012356 80S: 
524 33 RARER EERERERARRRRERREEREREEREREEEEEKERRERREEREE 
SeTEST 7 DRIVE TYPE TEST 
22 REA ARERAAAERERRREEERERRERERAAEREKEERERRREEEEEERERERRERERREEEREKK 
012356 S17: 
012356 SCOPE :SCOPE CALL 
012360 000240 NOP 
012362 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
012366 013700 001276 MOV S$BASE ,R *RO = UNIBUS ADDRESS 
012372 013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
on 012376 012737 000007 001226 MOV #7, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
526 012404 016037 000026 001142 MOV RMDT(RO),$BDDAT ;STORE RMDT AT $BDDAT 
527 012412 022737 020026 001142 CMP ASNGPRT,$BDDAT :SINGLE PORT RM80?? 
528 012420 001414 BEQ 1 SYeS!! 
529 O124e2 022737 024026 001142 CMP #DULPRT,SBDDAT :DUAL PORT RM80?? 
530 012430 001410 BEQ 10$ YES! ! 
531 012432 010037 001136 MOV RO, $BDADR SLOAD BAD ADDRESS 
232 012436 062737 026 001136 ADD #RMDT, SBDADR 
533 012444 104057 EMT 57 
535 012446 000137 054046 JMP SEOSP :GO0 TO NEXT DEVICE 
236 012452 10$: 
538 a3 RRAAAAERARAEARARRRERERAEREEEEERERRREREKRREKAREKERERRERERAERRERREEEEE 
S*TEST 10 DEVICE AVAILABLE TEST 
1 : ne gargs PELL ae NMC Yh enT ORD Ont at 
4 T10: 
12452 000004 SCOPE :SCOPE CALL 
124 40 NOP 
12456 01 1100 MOV WSTACK, SP :LOAD THE STACK POINTER 
124 137 1276 MOV $BASE [RO = UNIBUS ADDRESS 
124 137 } 1466 MOV TSTQUE,R1 *R1 = POINTER TO DEVICE 
“a 0124 127 10 001226 MOV #10, $TESTN *;SET TEST NUMBER IN APT MAIL BOX 
40 012500 737 05515 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
54 OiSebe 16037 001142 MOV RMCS1(RO) ,SBDDAT sSTORE RMCS1 AT SBDDAT 
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LABLE TEST 


BIC 
BNE 
MOV 
MOV 
EMT 


s*TEST 11 


SEQ 0106 


#*CDVA,SBDDAT  ;CLEAR ALL BUT DVA 
CH_IF DVA SET 


BRAN 
#DVA, SGDDAT SSETUP EXPECTED 
RO. SDADR SSETUP REG ADDRESS 


33 RRRRRRERAERRERAAARRREREEEEREREEREEEEERERERRREREEEEREEREEREEERERE 


HOLDING REGISTER TRANSFER TEST 


FY RARRRRRREERAREREERRREREREREERREEEEERRRERREERERRRERERRERERRERERE 


TST11: 


:SCOPE CALL 
#STACK, SP ;LOAD THE STACK POINTER 
S$BASE ,R [RO = UNIBUS ADDRESS 
TSTQUE,R1 *R1 = POINTER TO DEVICE 
#11, STESTN +:SET TEST NUMBER IN APT MAIL BOX 
PC .CNTCLR 360 CLEAR CONTROLLER 
R [CLEAR ERROR FLAGS 
RO, $BDADR SSETUP REGISTER ADDRESS 
ARMHR , SBDAD 


sWRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS. 
sNOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN 


10$ 


By WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS 


#-1,RMDA(RO) LOAD RMDA 
#0,RMDA(RO) [LOAD RMDA 
RMAR(RO),$BDDAT :STORE RMHR AT SBDDAT 
SBDDAT ZANY ERROR?? 

SGDDAT SLOAD EXPECTED 
#B1T0,R3 :SET ERROR FLAGS 


;WRITE ZEROS THEN ONES IN RMHR AND CHECK FOR S-A-0 BITS. 


#0, RMDA(RO) ZLOAD RMDA 
#-1,RMDA(RO) — ;LOAD RMDA 
RMHR(RO),SBDDAT :STORE RMHR AT SBDDAT 
AT ; 1S COMPLEMENTED WHEN READ 
#-1,$GDDAT [SETUP EXPECTED 
; DBAT. SBDDAT ANY ERROR?? 


6 
#81T1,R3 SET ERROR FLAG 


Baga PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN. 


30$: 


TST 
BNE 
MOV 


MOV 
MOV 


R3 zsANY FLAGS SET?? 

50$ eS i 

#1,R2 :R2=DATA PATTERN 
~RMDA(RO) 


3LOAD RMDA 
R2,RMDA(RO) 3LOAD RMDA 


=o 


dD 9 
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T11 HOLDING REGISTER TRANSFER TEST 
589 13738 001142 MOV RMHR(RO),SBDDAT ;STORE RMHR AT SBDDAT 
107 fi B87 114 COM SBDDAT > RMHR IS oGORPLEMENTED 
127 CMP DDAT,R2 ZANY | ERROR? 
$2 ie 14 BEQ NO! ! 
293 01 127 Taubes 001140 MOV R2,$GDDAT TSETUP EXPECTED 
595 o137 770 BR 0s 3D0 NOT COLLECT ALL ERRORS 
597 012772 906302 40$: ASL 82 ;SHIFT TO NEXT PATTERN 
398 012774 0013 BNE 308 SCONTINUE IF NOT DONE 
600 012776 50S: 
602 FRRAAAAAAAEAAREAARRERERERAAEAERARERARRARRAARERERARRARRRRRRERERER 
tSTEST 12 CONTROL STATUS #1 TRANSFER TEST 
> em cite ithaca muta tcamaea acai ia ta cap taatainaaee 
012776 rsr12 
012776 000004 SCOPE :SCOPE CALL 
01 240 NOP 
013002 012706 901100 MOV #STACK ;LOAD THE STACK POINTER 
01 oI 700 001276 MOV S$BASE,R RO = UNIBUS ADDRESS 
013012 013701 0014 MOV TSTUUE ,R *R1 = POINTER TO DEVICE 
aaa 013016 012737 000012 001226 MOV Fee Ee TN +;SET TEST NUMBER IN APT MAIL BOX 
604 013024 005003 CLR R3 :R3 = ERROR INDICATOR 
605 013026 004737 055156 JSR PC, CNTCLR +60 CLEAR CONTROLLER 
607 ;WRITE ONES IN RMCS1, BITS 01-05, THEN CLEAR. READ AND 
608 [CHECK FOR S-A-1 BITS. 
609 013032 012760 000076 000000 MOV #ILF76,RMCS1(RO) :LOAD RMCS1 
611 013040 004737 055156 JSR TCLR 360 CLEAR CONTROLLER 
612 013044 016037 001142 MOV Past CR ),SBDDAT sSTORE RMCS1 AT SBDDAT 
613 01305 737. 177701 +0014 BIC #°CILF76,$BDDAT 
614 01 141 BEO 38 
615 01 5037 001140 CLR $GD 
616 01 10037 001136 MOV 56 SBDADR 
617 91307 062737 000000 001136 ADD #RMCS1,$BDADR 
618 013100 104043 EMT 43 
620 WRITE ONES IN RMCS1, BITS 01-05, THEN WRITE ZEROS. READ AND CHECK FOR 
1310, S$: ; 
oe 1319 127 000076 000 MOV #ILE76 RP RACS1(RO) :LOAD RMCS1 
62h 1311 127 0000 MOV (RO sLOAD RMCS1 
5 013116 © 1603 114 MOV #0 RACSI SBDDAT® ;STORE RMCS1 AT SBDDAT 
626 13124 737 177701 00114 BIC #°CILF76,$BDDAT 
62 131 2 1412 BEQ 10s, 
628 0131 5037 001140 CLR SGDDAT 
669 13140 10057 1136 MOV RO, $BDADR 
630 013144 7 001136 ADD #RACS1,$BDADR 
631 013152 1 083 EMT 
63 13154 052703 000001 BIS #B1T0,R3 sSET ERROR FLAG 
634 “WRITE ZEROS IN RMCS1, THEN ONES, READ AND CHECK S-A-0 BITS. 
635 013160 10S: 


“+4A@ 
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005003 


012760 
004 
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ER TEST 
MOV #0,RMCS1(RO) —_ LOAD RMCS1 
MOV #ILF76,RMCS1(RO) SLOAD RMCS1 
MOV RMCS1(RO) , SBDDAT [STORE RMCS1 AT $BDDAT 
BIC #°CILE7G $BDDAT 
MOV #ILF76,$GDDAT 
CMP SEDDAT ,SBDDAT 
BEQ 20$ 
MOV RO, SBDADR 
ADD #RACS1, $BDADR 
EMT 4 


BIS #B1T1,R3 3SET ERROR FLAG 


RITE A SHIFTING ONE BIT PATTERN IN RMCS1, READ AND CHECK FOR STUCK BITS. 
"TST R3 :OMIT IF ANY ERRORS 
BNE 508 
ate MOV #2,R2 :R2 = TEST PATTERN 
"mov R2,R 3R3 = EXPECTED RESULT, BITS 1-5 
BIC #°CILF76,R3 
000000 MOV #O0,RMCS1(RO) =: LOAD RMCS1 
MOV R2.RMCS1(RO) _: LOAD 
901142 MOV RMCS1(RO) , SBDDAT ZSTORE RMCS1 AT $BDDAT 
00114 BIC #*CILF76,$8DD 
CMP 3, SBDDAT 
BEQ 4 
MOV R3,$GDDAT 
MOV RO, SBDADR 
001136 ADD #RACS1 .SBDADR 
40$: ASL R2 :SHIFT TO NEXT BIT 
ae BNE 30$ [CONTINUE IF R2 NOT ZERO 
JL RRRARAAAAAAARERARAERREREEEAERERRERERERERERERRERERERERERRRRREREEE 
S*TEST 13 ERROR REGISTER #1 TRANSFER TEST 
haggis siemens tit am a eta amar ome a re Merit I 
T13: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP :LOAD THE STACK POINTER 
MOV S$BASE Ri ‘RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7R1 = POINTER TO DEVICE 
001226 MOV #13,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 ZCLEAR ERROR FLAG 


sWRITE ONES IN RMER1, CLEAR AND CHECK FOR fe BITS 
MOV #-1,RMERI(RO) ;LOAD RMER 


JSR PC CNTCLR 360 CLEAR CONTROLLER 
135 MOV RMER1 (RO) ,RMERTI sSTORE RMER1 IN INPUT BUFFER 
114 MOV RMER11, $BDDAT 


BIC #°C<PAR! RMR! ILF!ILR>, SBDDAT 
CLR SGDDAT 





SEQ 0108 


——- 


0 


ren 
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3 ERROR REGISTER #1 TRANSFER TEST 
3 01 1 MOV RO, SBDADR 
oe 1364 q oO 00 001136 ADD #RMER1, SBDADR 
ee i ; 027 as EMT 27 
1 1 73 001142 MOV RMER11,$BDDAT 
1 3737 114 BIC g* CEDCK! IAE !ADE !HCRC!HCE !ECH!WCF !FER>, SBDDAT 
690 01 bosG8? CLR SDDAT 
691 013474 010037 MOV RO, SBDAD 
692 013500 7 001136 ADD #RMER1, SBDAD 
693 01 3 1040 EMT 30 
69% 01351 20S: 
695 01351 013737 001142 MOV RMER11,$BDDAT 
6% 013516 04 737 00114 BIC #°C<OPI !DTE>, SBDDAT 
697 013524 1410 BEQ 30$ 
698 013526 005037 001140 CLR SGDDAT 
13532 010037 001136 MOV RO, SBDADR 
£00 Ot 536 062737 000014 001136 ADD ARMER1, SBDADR 
701 13544 104031 EMT 
708 pal guRITE ONES THEN ZEROS IN RMER1, READ AND CHECK FOR S-A-1 BITS 
705 013546 012760 000014 MOV #-1,RMER1(RO) LOAD RMERT 
206 013554 01 760 14 MOV #O,RMERI(RO) =: R1 
70 013562 0160 001352 MOV RMER1 (RO) ,RMERTI SSTORE RMER1 IN INPUT BUFFER 
708 0135 13737 001142 MOV RME 
709 ot 576 042737 00114 BIC #°C<RMR! ILE! ILR>, SBDDAT 
710 013604 001412 BEQ 40$ 
ots Orsers. 890087 St ROC SSDADR 
og 013616 33 001136 ADD #RMER1, SBDADR 
714 013624 1040 EMT 
715 01 93270 BIS #81T0,R3 sSET ERROR FLAG 
716 01 13737 001142 40$: MOV RMER11 , SBDDA 
717 01 042737 00114 BIC #°C<DCK! TAE AOE !HCRC!HCE!ECH! WCF !FER>, S8DDAT 
718 013646 00141 BEQ 
719 013650 00503 CLR SGDDAT 
013654 01 MOV RO, SBDADR 
1 01 001136 ADD #RAER' . SBDADR 
ee O136 BIS #B1T0,R3 :SET ERROR FLAG 
4 013674 50S: 
725 oI 74 001142 MOV RMER11 ,SBDDAT 
1370, 114 BIC #*°C<OPI !DTE>, SBDDAT 
1371 BE 
8 01371 CLa DAT 
729 01371 MOV RO, SBDADR 
1 001136 ADD #RMER1 , SBDADR 
1 0137 EMT 
te 1 BIS #B1T,R3 
34 ‘a iuRITE ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS 
137 012760 14 MOV #0,RMER1(RO) LOAD RMERI 
13744 0127 14 MOV #-1,RMERI(RO) LOAD RMER1 
1375 160 1 43 MOV RERT CRO) SBDDAT ;STORE RMER1 AT SBDDAT 
9 0137 12737 114 MOV 4-1, $GDDAT 


SEQ 0110 



















E 
740 01 766 3737 001140 001142 CMP DDAT, SBDDAT 
741 01 1410 BEQ $ 
742 013776 01 1136 MOV RO, SBDADR 
743 014 7 14 001136 ADD #RMER1, SBDADR 
744 014010 1 9 a EMT 35 
245 14012 052703 000002 BIS #B1T1,R3 
rs ? SWRITE A SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS 
748 “NOTE: DONT TEST UNSAFE OR PARITY 
749 014016 70$: 
£50 01401 Ooi0e3 Ist RS :SKIP THIS PART IF ANY ERRORS 
Pe 140 ¢ 12702 000001 a MOV #1,R2 :R2 = TEST PATTERN 
754 014026 0046737 055156 JSR PC. CNTCLR 360 CLEAR CONTROLLER 
755 014032 010 $0 000014 MOV R2.RMER1(RO) LOAD RMER 
756 9140 01 000014 001142 MOV RMER1 (RO) , SBDDAT sSTORE RMER1 AT SBDDAT 
137 014044 03 io 000010 eI #PAR,R2 :DONT TEST PAR = 0 
759 01405 7 10 001142 BIC #PAR, SBDDAT 
£60 014060 ae eta 90$: BIT é gh :DONT TEST UNS = 0 
7 014066 042737 040000 001142 BIC #UNS -SBDDAT 
763 014074 237 001142 100$: CMP R2, SBDDAT 
764 014100 001410 BEQ 116$ 
765 014102 010237 001140 MOV Re. $GDDAT 
766 014106 010037 001136 MOV RO, SBDADR 
767 014112 062737 000014 001136 ADD #RMER1, SBDADR 
768 014120 104036 EMT 36 
i 014122 006302 110$: ASL R2 :SHIFT TO NEXT BIT 
771 014124 001 80S SCONTINUE IF R2 NOT ZERO 
7 014126 120$: 
774 32 RAERAARARARARARAAERAARAERAERAEAEAAAAARAEAARERAEAEEEARARAERAARAAAEREKAEEEEE 
S*TEST 14 CLEAR OFFSET STUCK ACTIVE TEST 
© RERAAAAAAARAREARARARAREEAERAEAAEARARARARARARAAREAAERARAAAREAEREEREE 
014126 TST14: 
oie! 04 :SCOPE CALL 
g141 012708 1100 MOV #STACK s LOAD THE STACK POINTER 
141 137 1276 MOV S$BASE ,R ‘RO = UNIBUS ADDRESS 
O1614 013701 1466 MOV TSTQUE ,R1 ?R1 = POINTER TO DEVICE 
os 141 12737 14 001226 MOV #14, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
776 014154 737 (0551 JSR PC, CNTCLR 260 CLEAR CONTROLLER 
rs 14160 37 933138 90003 MOV #-1,RMOF(RO) LOAD 
16166 760 177777 MOV #~1-RMOF(RO) — :LOAD RMOF AGAIN TO SET SSEI 
778 014176 $0 000036 00114 MOV RMOF (RO) ,SBDDAT :STORE RMOF AT SBDDAT 
779 014 2737 (1 114 BIC #°COFD, SBDDAT 
780 01421 1011 BNE 10$ ;BRANCH IF OFD IS A ONE 
781 01421 7 001140 MOV #0FD SGDDAT ?SETUP ERROR MESSAGE 
7B 14 7 001 MOV SBDADR 
14226 4 001136 ADD #RAOF , SBDADR 
784 014 172 EMT 172 
785 014 108: sEND OF TEST 
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FRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAERAAARAAAAAREREREAARERAAERE EE 


taTEST 15 OFFSET REGISTER TRANSFER TEST 
ag aaaaaige ta pregame Ree eS TNT RENE 
sco ZSCOPE CALL 
MOV #STACK s THE STACK POINTER 
MOV SER ?RO = UNIBUS 
MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
MOV #15, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 ;RESET ERROR FLAGS 
MOV RO, SBDADR SSETUP BAD ADDRESS 


ADD 

CLR SGDDAT :SETUP EXPECTED DATA 
;WRITE ONES THEN ZEROS IN RMOF AND oftecK, FOR S-A-1 BITS. 
tLOAD RMOF AGAIN TO SET SSEI 


00003 MOV #=1,RMOF (RO) 
00003 MOV #~1RMOF (RO) 
90005 MOV #0 ,RMOF (RO) [LOAD RMO 
001 MOV RMOF CRO). RMOFI :STORE RMOF IN INPUT BUFFER 
sCHECK UNUSED BITS OF RMOF FOR ZERO 
001142 MOV RMOFI,$BDDAT — ;GET UNUSED BITS 
00114 BIC #°CXNUOF , SBDDA 
BEG l $ ;BRANCH IF NO ERROR 
BIS #B1T0,R3 :SET ERROR FLAG 
i CHECK USED BITS OF RMOF FOR ZERO 
901142 "mov RMOF I SEDDAT :GET USED BITS 
00114 BIC pref Tig 
BEG 0s :BRANCH IF NO ERROR 
BIS #81T0,R3 sSET ERROR FLAG 
guRITE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS. 
90003 "MOV #0,RMOF (RO) ZLOAD RMOF 
MOV #-1,RMOF(RO) LOAD RMOF 
90003 MOV #1 1 RRO (RO) (RO) [LOAD RMOF AGAIN TO SET SSEl 
1 MOV *STORE RMOF IN INPUT BUFFER 
sCHECK UNUSED BITS OF RMOF FOR ZERO 
001162 MOV RMOFI.$BDDAT  ;GET UNUSED BITS 
114 BIC #°CXNUOF , SBDDAT 
BEO ;BRANCH IF NO ERROR 


EMT 
BIS #81T0,R3 
eogec® USED BITS OF RMOF FOR ONE, 


001142 mov RMOF I SBDDAT :GET USED BITS 
114 BIC XNUOF , $B 
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DSKLS PT1 MACRO V04.00 14-Jan-82 16:33:00 PAGE 13-17 SEQ 0112 
FSET REGISTER TRANSFER TEST 
1 114 MOV #*CXNUOF ,SGDDAT ;SETUP EXPECTED STATUS 
g ' or 908 114 CMP SGDDAT, SBDDAT 
BEQ 4 sBRANCH IF NO ERROR 
0 393 000002 BIS #B1T1,R3 
IF F NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN 
sn jiu. 18 BIT MODE. 
451 570 TST R3 ZANY ERROR?? 
45 1 BNE 100$ YES!! 
43 12 000001 - MOV #1,R2 SSTARTING DATA PATTERN 
re 6 0127 000032 "MOV #0,,RMOF (RO) ZLOAD RMOF 
45 ot MOV R -RMOF (RO? [LOAD RMOF 
4540 10 00003 MOV R2.RMOF (RO) [LOAD RMOF AGAIN TO SET SSEI 
4544 + 000032 001142 MOV RMOF (RO) ,$BDDAT :STORE RMOF A A 
4332 91020 MOV SSETUP EXPECTED RESULT 
45 i bang MOV *SGDDAT 
4560 16157 BIC #iMYOF SEL, R3 ;:CLEAR UNUSED BITS 
4564 3 001142 CMP R3,$BDDAT > COMPARE EXPECTED & & RECEIVED 
4570 001401 BEQ 608 SBRANCH IF NO ERR 
4572 104056 EMT 6 
4576 006302 60$: ASL R2 sSHIFT TO NEXT BIT 
4576 00135 BNE 50$ SCONTINUE IF NOT DONE 
Test RMOF WITH SHIFTING ONE BIT PATTERN IN 16 BIT MODE 
4600 012702 000001 ian MOV #1,R2 sSTARTING DATA PATTERN 
4606 in 12760 000000 000032 "MOV RMOF (RO) ;LOAD RMOF 
4612 052702 01 BIS oar, R2 SSET 16 BIT MODE WITH ROTATING PATTERN 
4616 102 MOV Re. RMOF (RO) iL F 
10 $0 MOV RMOF (RO) [LOAD RMOF AGAIN TO SET SSEI 
160 001142 MOV RaOr (RO) © SBDDAT :STORE RMOF 
4 10 3 MOV Re. »R3 SETUP EXPECTED RESULTS 
46 1 901140 MOV R3,$GDDAT 
464 16057 BIC AXNUOF ,R3 :CLEAR UNUSED BITS 
4646 3 1142 CMP R3,S$BDDAT : CORRECT BITS SET ? 
465 1401 BEQ 908 YES ! 
4654 104056 EMT 56 
4656 90$: 
465 2 010000 BIC #FMT16,R2 :DON'T SHIFT FORMAT BIT 
rrr] ASL Re ?SHIFT PATTERN AND 
4664 001 BNE 8 STEST NEXT BIT 
4666 100$: 
FRRAAAAAAAAAAAAAAAAARAEEARAAAARERAAAARAAAARAAARAREEAEAAAARERAR ENED 
tSTEST 16 ERROR REGISTER #2 TRANSFER TEST 
© REAAAAAAEAAAEAAAAAAARERARERAEAEAAAARAAAAAAAAAEAAEARAAARAERARAARAAAAEREE 
4666 TST16: 
4 SCOPE CALL 
re 1 Soe 11 nov #STACK, SP THE STACK POINTER 
4676 81 108 sepa MOV SaASE RO ?RO = UNIBUS ADDRESS 
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$ PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-18 
STER #2 TRANSFER TEST 


MOV TsTaye R1 :R1 = POINTER TO DEVICE 
MOV #16,$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
CLR R3 ;RESET ERROR FLAGS 
MOV RO, SBDADR [SETUP BAD ADDRESS 
ADD #RAER2 , SBD 
CLR SGDDAT sSETUP EXPECTED DATA 
MOV #FMT16,RMOFO SET 16 BIT FORMAT MODE TO ALLOW 
:§SE"* TO BE SET IN RMERZ 
SWRITE ONES IN RMER2, CLEAR AND CHECK FOR g-A1 BITS 
MOV #~1,RMER2(RO)  ;LOAD RMER 
JSR PC, CNTCLR 360 CLEAR CONTROLLER 
MOV O,RMOF(RO) : 
MOV RMER2 (RO) ,RMERZI 3STORE RMER2 IN INPUT BUFFER 
sTEST UNUSED BITS FOR ZERO-FAILURE ON IF 
MOV RMER21 
BIC #°CXNUER2, SBDDAT 
BEG 108 :BRANCH IF NO ERROR 
BIS #B1T0,R3 ;SET ERROR FLAG 
TEST "OPE", ‘IVC’, LSC’ FOR ZERO-FAILURE ON CS, IF 
“mov RMER21 ,SBDDAT 
BIC #*C<OPE!1VC!LSC>, S8DDAT 
oar ¢ BRANCH IF NO ERROR 
BIS #B1T0,R3 ;SET ERROR FLAG 
shest "LBC’’, DPE’ FOR ZERO-FAILURE ON DS, IF 
° RMER21 ,SBDDAT 
Bic #°C<LBC!DPE>, SBDDAT 
BEd 308 ;BRANCH IF NO ERROR 
BIS #B1T0,R3 :SET ERROR FLAG 
uRITE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS. 
"mov #-1,RMER2(RO)  ;LOAD MER 
MOV #0 AMER (RO) [LOAD RMER 
MOV RMERZ(RO),RMERZI ;STORE RMER2 IN INPUT BUFFER 
:TEST “OPEN. "rvC"", “LSC’’ FOR ZERO-FAILURE ON CS, IF 
BIC #C<OPE!1VC!LSC>, SBDDAT 
BEd 4 ‘BRANCH IF NO ERROR 
BIS #B1T0,R3 3SET ERROR FLAG 
Jest “LBC’', DPE’ FOR ZERO-FAILURE ON DS, IF 
"mov RMER21 , $BDDAT 
BIC #°C<LBC!DPE>, SBDDAT 


SEQ 0113 
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RNBAO RMBO DSKLS PT? MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-19 SEQ 0114 
6 ERROR REGISTER #2 TRANSFER TEST 

933 0151 140 BEQ 508 ;BRANCH IF NO ERROR 

9 1 13 9 EMT 

3 § 015152 052703 000001 BIS #B1T0,R3 3SET ERROR FLAG 

3 - ivRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-0 BITS. 

939 12486 12760 MOV #0,RMER2(RO) LOAD RMER 

940 13164 1 760 00008 MOV #-1,RMERZ(RO) LOAD RMER 

941 015172 016037 000042 0014 MOV RMER2(RO) ,RMERZi 3STORE RMER2 IN INPUT BUFFER 

ake sTEST UNUSED BITS FOR ZERO-FAILURE ON IF 

943 015 13737 901400 00114 MOV RMER DA 

944 O15 737 176250 00114 BIC #°CXNUERZ, SBDDAT 

945 015214 001403 BEQ 60$ ;BRANCH IF NO ERROR 

946 015 16 104044 EMT 44 

347 015220 052703 000001 BIS #B1T0,R3 3SET ERROR FLAG 

949 :TEST USED BITS FOR ONE-FAILURE ON IF 

950 015224 60$: 

951 015224 013737 901400 00114 MOV RMER21 ,SBDDAT 

96 015 04 737 00132 00114 BIC AXNUER? SEDDAT 

953 015240 012737 176250 00114 MOV #*CXNUER2 , SGDDAT 

954 015246 4 737, 001140 001142 CMP SGDDAT, SBDDAT 

955 015254 001403 BEQ 70$ :BRANCH IF NO ERROR 

996 015256 104051 EMT 51 

997 015 052703 000002 BIS #B81T1,R3 :SET ERROR FLAG 

959 “IF NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT. 

960 015264 70$: 

961 015264 005703 TST R3 ZANY ERRORS? 

362 015266 001044 BNE 120$ sVESt 

963 015270 012702 000001 MOV #1,R2 [R2=DATA PATTERN 

964 015274 80S: 

965 015274 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 

966 015 0137 1444 000032 MOV RMOFO,RMOF(RO) : 

967 015 010260 00004 MOV R2 -RMERG(R ‘LOAD RMER2 

968 01531 1603 90004 001142 MOV RMER2 (RO) , SBDDAT -STORE RMER2 AT SBDDAT 

969 015320 03 702 0000 BIT #SKI,R2 z1S SKI BEING SET? 

970 015324 00100 BNE YES!! 

971 015326 042737 040000 001142 BIC #SK1,$BDDAT [DONT TEST SKI FOR ZERO 

97 015334 032702 000200 90$: BIT #DVC.R2 [1S DVC BEING SET?? 

973 015340 001 BNE ZYES!! 

974 013342 20 001142 BIC #DVC,SBDDAT [DONT TEST DVC FOR ZERO 

975 015350 01 2 ? 1140 100$: MOV R2,$GDDAT 

97 O15 cy 00152 1140 BIC #XNUER2,$GDDAT ;UNUSED BITS SHOULD BE ZERO 

977 015 23737 001140 001142 CMP SGDDAT,$BDDAT ANY ERRORS?? 

978 01537 40 BEQ 110$ NO! ! 

99 015372 104052 EMT 52 

981 015374 006302 110$: ASL R2 ;SHIFT TO NEXT DATA BIT 

982 015376 001336 BNE 80$ [CONTINUE IF NOT DONE 

984 015400 120$: 

986 © RAEAAAAAAAAAAAARARARAEAEAEERAAAAEAAARAAARARAARAREAAAEEAERAAREEREEAERE 


S*TEST 17 SERIAL NUMBER TEST 
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Ti7 SERIAL NUMBER TEST 
TST17: 
7} SCOPE zSCOPE CALL 
us MOV #STACK i THE STACK POINTER 
beg MOV ik = UNIBUS ADDRESS 
MOV SeAse AD = POINTER TO DEVICE 
001226 MOV eer esty ASET TEST NUMBER IN APT MAIL BOX 
055156 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
001138 MOV RO, SBDADR *SETUP REGISTER ADDRESS FOR TYPEOUT 
4 $0008 001136 ADD #RMSN, SBDAD 
99) 000031 MOV #25. ,R2 :READ RMSN 25 TIMES 
993 ;READ RMSN AND USE THE RESULT AS EXPECTED VALUE 
93% 000030 001140 MOV RMSN(RO),$GDDAT ;STORE RMSN AT SGDDAT 
996 “READ RMSN AND COMPARE WITH INITIAL VALUE 
997 015456 10S: 
998 015456 016037 000030 001142 MOV RMSN(RO),SBDDAT ;STORE RMSN AT SBDDAT 
999 015464 023737 001140 001142 CMP SGDDAT, SBDDAT 
1000 015472 001401 BEQ 20$ :BRANCH IF SERIAL NUMBER CONSISTENT 
1001 015474 104136 EMT 136 
1003 -DECREMENT COUNT AND CONTINUE IF NOT DONE 
1004 015476 20$: 
1005 015476 005302 DEC R2 
1006 015500 100366 BPL 10$ 
1007 015502 30$: ZEND OF TEST 
1009 FRRARARAAERARAERARER RARER EAERRRRRRAERERERERARAARERRERERREERERERE 
tSTEST 20 CONTROL BUS PARITY DETECTION TEST 
© RARAAAAAAAARARARARAERREREEAEAARERARAAARARAREAAEEEREARARRARAREREEERKE 
015502 T$T20: 
015502 000004 SCOPE :SCOPE CALL 
015504 000240 NOP 
015506 012706 001100 MOV #STACK, SP sLOAD THE STACK POINTER 
015512 013700 001276 MOV $BASE =RO = UNIBUS ADDRES 
015516 013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
os 015522 012737 000020 001226 MOV #20,$TESTN ‘SET TEST NUMBER IN APT MAIL BOX 
1011 ;SETUP FOR FIRST TEST LOOP (NO ERROR), 
101 015530 005037 001140 CLR $GDDAT PAR’ SHOULD BE ZERO 
1013 015534 111137 001428 MOVB  (R1),RMCS20 ‘SETUP RMCS2 VALUE 
1014 015540 042737 177770 001422 BIC a Rnse bn RMCS20 
1015 015546 012737 000001 001450 MOV #1, RMHRO sINITIALIZE DATA PATTERN 
1016 015554 000402 BR SKIP INCREMENT FIRST TIME 
1017 015556 006337 001450 5$: ASL RMHRO SHIFT TO NEXT PATTERN 
1019 “CLEAR AND VERIFY THAT ‘PAR’ IS RESET 
1020 015562 é$: 
1021 015562 004737 055156 JSR PC CNTCLR :G0 CLEAR CONTROLLER 
1028 013966 016037 000014 001142 MOV RMER1(RO) ,SBDDAT. sSTORE RMER1 AT SBDDAT 
1023 015574 01 37 000042 901400 MOV RMER2 (RO) ,RMER2I > STORE RMER2 IN INPUT BUFFER 
1024 01560 737 (17776 1142 BIC #*CPAR,SBDDAT  ;DID “PAR RESET? 
1025 91361 901413 BEQ 2 YES! ! 
1026 01561 10037 001136 MOV RO, SBDADR SSETUP REGISTER ADDRESS 


o 


em RM8O0 DSKLS PT1 MACRO V 
CONTROL BUS PARITY DET 
1027 0156: 737 000014 
1038 O13 4 $3039 000010 
1029 015632 00100 
1030 015634 104 
1031 015636 000453 
1032 015640 
015640 104070 
10%? 015642 51 
1035 
1036 015644 
1037 015644 013768 OO tee 
1038 312028 013760 001450 
1039 015 016037 000014 
1040 015666 ef ? 177767 
1041 813673 23737 001140 
a 015702 Jere 
1043 015704 032737 000020 
1044 015712 001002 
1045 015714 104071 
1046 015716 000425 
1047 015720 
015720 104072 
1088 015722 000421 
1050 O1s7 es 005737 001450 
1051 0157. pol sis 
1936 015732 032737 000020 
er 015740 001012 
1055 013784 052737 000020 
1056 015750 012737 000010 
1057 015756 012737 00000 
1058 015764 76 
1059 
1060 015766 
1061 
1062 
015766 
015766 000004 
313778 000240 
15772 ots 001100 
015776 013700 001276 
016%02 013701 001466 
016006 012737 000021 
1963 
1064 
1065 016014 012737 000001 
1066 piss 5037 001140 
1067 016026 02 
1068 
1069 
1070 016030 
1071 016030 006337 001450 


04.00 14-JAN-82 16:33:00 PAGE 13-21 SEQ 0116 
ECTION TEST 
001136 ADD #RMER1, SBDADR ‘aa 
1400 BIT #DPE ,RMER2ZI s1S DPE’ SET?? 
BNE 10$ SYES!! 
EMT : 
BR 0$ 
10$: 
EMT 70 
BR 50$ 
guRITE TEST PATTERN AND VERIFY ‘PAR’ STATUS 
900010 "mov RMCS20,RMCS2(RO) ;LOAD RMCS2 
0036 MOV RMHRO,RMHR(RO) ; 
00114 MOV RMER1 (RO) , SBDDAT sSTORE RMER1 AT $BDDAT 
00114 BIC #°CPAR, SBDDAT 
00114 CMP SGDDAT . SBDDAT i1S PAR" CORRECT?? 
001422 BIT #PAT,RMCS20 SSHOULD “PAR BE SET? 
BNE 30$ YES! ! 
EMT 71 
BR 50$ 
30$: 
EMT 72 
BR 50$ :SKIP TO NEXT 
-GO TO NEXT PATTERN 
40S: st RMHRO 18 DATA PATTERN COMPLETE?? 
001422 BIT #PAT,RMCS20 1S TEST COMPLETE?? 
:SETUP FOR SECOND TEST LOOP (ERROR) 
001422 BIS #PAT ,RMCS20 ;TURN ON BAD PARITY 
001140 MOV #PAR.$GDDAT SEXPECT ERROR 
001450 MOV #1, RMHRO S INITIALIZE DATA PATTERN 
BR 6$ SSTART LOOP 
50S: sEND OF TEST 
2s RARRAEARARAAERAAEAREARREEEEEEREERARAEEAAEAEEARAERERREERERARRARREERERREKRK 
S*TEST 21 CONTROL BUS PARITY GENERATION TEST 
ry mam oscrae ning ate >on geaallc gener enact mma teri 
T21: 
SCOPE :SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV S$BASE ,R [RO = UNIBUS AD 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
001226 MOV #21,STESTN +;SET TEST NUMBER IN APT MAIL BOX 
;SETUP FOR TEST (NO ERROR) 
001450 #1,RMHRO 


Vv 
CLR 
BR 


10s 
ASL 


A Meets, DATA_PATTERN 


SGDDAT MC 
20$ ‘DONT SHIFT FIRST TIME 


:SHIFT DATA PATTERN 
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Tel CONTROL BUS PARITY GENERATION TEST T 
10 9160 208: 
9160 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
1074 16040 013760 001450 000036 MOV RMHRO,RMHR(RO) LOAD RMHR : 
1076 ; TRANSFER DATA TO RH, VERIFY NO ‘MCPE'’ ERROR 
10 016046 16037 000036 001374 RMHR (RO) RAHRI 1 iSTORE RMHR IN INPUT BUFFER 
1078 1605 16037 O1148 MOV RINCS1 (ROS $B :STORE RMCS1 AT SBDDAT 
10 16062 2737 90009 114 BIC MA T suas BAD PARITY DETECTED?? 
1080 0160 140 BEQ 508 NO! ! 
1081 01607 07 EMT 7 
108¢ 16074 00040 BR 40$ 
1084 -GO TO NEXT PATTERN 
1085 016076 30$: 
1086 016076 005737 001450 TST RMHRO ;DONE ALL PATTERNS?? 
1087 016102 001352 BNE 10$ NO! ! 
1088 016104 40$: [END OF TEST 
1090 {RRRAAAAAAERRAERERRERRERERERARERERREREREERERERERERERARRRRREREREE 
tSTEST 22 RMDA,RMDC FAULT TEST 
5 RRAARAAAERAERAEERERRRERERRERERERAERRARREERERRARRERERRERRRRRREREREED 
016104 TST22: 
016104 000004 SCOPE :SCOPE CALL 
016106 000240 NOP 
016110 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
016114 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
016120 013701 001466 MOV TSTQUE,R1 *R1 = POINTER TO DEVICE 
ake 016124 012737 000022 001226 MOV Woe STESTN +;SET TEST NUMBER IN APT MAIL BOX 
109 016132 004737 055156 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
1094 :WRITE ZEROS, THEN ONES IN RMDA,RMDC-READ AND TEST FOR S-A-0 
1095 016136 012760 006 MOV i RO) sLOAD RMDA 
1096 016144 012760 900 000034 MCV (RO) [LOAD RMDC 
1097 016152 012760 177777 000006 MOV #-1,RMDA(RO) § :LOAD RMDA 
1098 016160 012760 177777 000034 MOV #~1-RMDC(RO) LOAD RMDC 
1099 016166 016037 001344 MOV RMDA(RO) RMDAI :STORE RMDA IN INPUT BUFFER 
1100 016174 016037 034 001372 MOV RMDC(RO).RMDCI :STORE RMDC IN INPUT BUFFER 
1102 016202 si 177777 001344 CMP 1 ,RMDAL 1 ANY REGISTER ALL ONES?? 
110 O16 52737 17 00137 BIS AXNUDC,RMDCI SET inuseD BITS 
1104 016 5 3373f 176000 oo1a05 CMP -1,RMD 
1105 016206 001401 BEQ :YES!! 
1106 016230 104042 EMT 
1108 016232 10S: 
1110 22 RAERERELAAAAERAERARARAAEEAAEAERERARAARAEAEAAARERAERAERAAARAAAAREAREREE 
TSTEST 23 DISK ADDRESS TRANSFER TEST 


SREAARAAAARARAAAARAEREREEEAEEEAEAAAAAAREAARAEAARARARERRERERAEEEEEEE 


1123 
ZSCOPE CALL 


6 NOP 
1100 : MOV #STACK,SP ;LOAD THE STACK POINTER 
ie 1 12908 1398 MOV SBASE RO ‘RO = UNIBUS ADDRESS 


B 10 


CZRNBAO RM8O DSKLS$ PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-23 SEQ 0115S 
T23 DISK ADDRESS TRANSFER TEST 
016246 0137 14 MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
ae 016 +] O35) Motes 001226 MOV #23,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
1112 016260 905003 CLR R3 :R3 = ERROR INDICATOR 
1113 016, 004 055156 JSR PC, CNTCLR G0 CLEAR CONTROLLER 
1115 ;WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A-i BITS 
1116 016266 012760 177777 000006 MOV #=1.RMDA(RO) | ;LOAD RMDA 
1117 016274 012760 000000 00000 MOV 0,RMDA(RO) : RMDA 
1118 016 ‘ 016037 000006 00114 MOV RMDA(RO),$BDDAT :STORE RMDA AT SBDDAT 
1119 016310 005737 00114 TST SBDDAT 
1120 016314 001412 BEQ 
1121 016316 005037 001140 CLR SGDDAT 
1122 016322 010037 001136 MOV RO, SBDADR 
1123 016326 062737 000006 001136 ADD #RMDA, SBDADR 
112% 916334 104020 EMT 
1125 016336 052703 000001 BIS #B1T0,R3 zSET ERROR FLAG 
1126 anil WRITE ZEROS IN RMDA, THEN WRITE ONES, READ BACK AND CHECK FOR S-A-0 BITS 
016342 012760 909000 000006 MOV #0,RMDA(RO) LOAD RMDA 
1128 016350 012760 177777 000006 MOV #-1,RMDA(RO) | :LOAD RMDA 
1129 016356 016037 000006 001142 MOV RMDA(RO),$BDDAT :STORE RMDA AT SBDDAT 
1130 016364 023727 001142 17777 CMP SBDDAT #1 
1131 016372 001413 BEQ $ 
1132 016374 012737 177777 001140 MOV 4-1, $GDDAT 
1133 016402 010037 001136 MOV RO, $BDADR 
1134 016406 062737 000006 001136 ADD #RMDA, SBDADR 
1135 016414 104021 EMT 
1136 016416 052703 000002 BIS #81T1,R3 sSET ERROR FLAG 
1137 “WRITE A SHIFTING 1 BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS 
1138 016422 005703 50$: ‘TST R3 sOMIT BIT TEST IF ANY ERROR | 
1139 016424 001027 BNE 50$ 
1140 016426 012702 000001 MOV #1,R2 :R2 = TEST PATTERN 
1141 016432 30S: 
016432 012760 000000 000006 MOV #0,RMDA(RO) ZLOAD RMDA 
1142 016440 010260 000006 MOV R2.RMDA(RO) [LOAD RMDA 
1143 016444 016037 000006 001142 MOV RMDA(RO) ,$BDDAT :STORE RMDA AT SBDDAT 
1144 016452 023702 001142 CMP SBDDAT RO 
1145 016456 001410 BEQ 4 
1146 016460 010237 001140 MOV R2,$GDDAT 
1147 016464 010037 001136 MOV RO, $BDADR 
1148 016470 062737 000006 001136 ADD #RMDA, SBDADR 
1149 016476 104022 EMT 22 
1150 016500 006502 40$: ASL Ro sSHIFT TO NEXT BIT 
1151 016502 00135 BNE 30$ SCONTINUE IF R2 NOT ZERO 
1138 016504 50S: 
1154 yy REAR EAARAAEEEEEAEEARERERAARAEKRAERAREREEEARAAARAEAAERREAEEE 
SRTEST 26 DESIRED CYLINDER TRANSFER TEST 
© RARE AAAAAAAAAEAAREREEERERERAAAEAAREAAAEAAEAERRARAEERAEAARAEEEEARKE 
016504 TST24: 
016504 000004 SCOPE :SCOPE CALL 
016506 000240 NOP 
016510 01 901100 MOV #STACK sP :LOAD THE STACK POINTER 
016514 0137 1276 MOV SBASE ,R ‘RO = UNIBUS A S 
016520 013701 001466 MOV TSTQUE ,R1 ?R1 = POINTER TO DEVICE 


are 


016524 
1155 
1128 O163 2 
1157 0165 
1158 016540 
1159 beers 
1160 016550 
HS 
Ne 016556 
1164 016564 
1165 01657. 
1166 01 
1167 016602 
1168 016604 
139 
1170 
1171 016610 
Ne 016610 
1173 016616 
1174 Bry: 
1175 016632 
1176 016640 
1177 016642 
1178 016644 
1179 
1180 
1181 016650 
1182 016650 
1183 016656 
1184 016664 
1185 016672 
1186 016700 
1187 016706 
1188 016714 
1189 016716 
1190 016720 
1191 
1192 
1193 016724 
1194 016724 
1195 016726 
1196 016730 
1197 
1198 
1199 016734 
1200 016734 
1201 016742 
1606 Bere 
130 1675 
1204 316738 
1205 016762 
1206 816768 
1207 016 
1208 016774 
1209 016776 
1210 


012737 
005 
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000024 


33178 

114 
1136 
34 


177777 
0000 
001777 


000001 


177777 
000 


000000 
177777 
34 


176000 
177777 
001140 


000002 


000001 


eu 
SH 


001140 


001226 


000034 


001142 


MoV #24, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
CLR R3 sRESET ERROR FLAGS 
JSR PC, CNTCLR [G0 CLEAR CONTROLLER 
CLR SGDDAT [LOAD EXPECTED 
MOV RO, $BDADR [LOAD REG ADDRESS 
ADD #RMDC, SBDADR 
;WRITE ONES IN RMDC AND VERIFY THAT UNUSED BITS ARE ZERO 
MOV #=1,RMDC(RO) — LOAD 
MOV RMDC(RO) ,SBDDAT :STORE RMDC AT SBDDAT 
BIC #°CXNUDC , SBDDAT ZCLEAR ALL USED BITS 
BEQ 5§ [BRANCH IF NO ERROR 
EMT 134 
BIS #B1T0,R3 :SET ERROR FLAG 
gyRiTe ONES IN RMDC, THEN WRITE ZEROS, READ AND CHECK FOR S-A-1 BITS 
3 MOV #-1,RMDC(RO)  ; LOAD RMDC 
MOV C [LOAD RMDC 
MOV RMDC(RO),SBDDAT :STORE RMDC AT SBDDAT 
BIC #XNUDC,SBDDAT CLEAR UNUSED BITS 
BEG 19 [BRANCH IF NO ERROR 
BIS #BITO,R3 ;SET ERROR FLAG 
iWRITE ZEROS, THEN ONES IN RMDC, READ AND CHECK FOR S-A-0 BITS 
"mov RMDC (RO) ZLOAD RMDC 
MOV #-1,RMDC(RO)  :LOAD RMDC 
MOV €(RO),SBDDAT :STORE RMDC AT SBDDAT 
BIS C,SBDDAT :SET UNUSED BITS 
MOV #~1,$GODAT [LOAD EXPECTED RESULT 
CMP SGDBAT. SBDDAT t1S RMDC ALL ONES ?? 
BEQ $ 3 '! 
EMT 0 
BIS #B1T1,R3 sSET ERROR FLAG 
som BIT TEST IF ANY ERRORS 
“ -T$T R3 
BNE 60S 
MOV #1,R2 ;R2 = TEST PATTERN 
guest RMDC WITH SHIFTING ONE BIT 
"mov RMDC (RO) ZLOAD RMDC 
MOV R2.RMDC (RO) SLOAD RMDC 
MOV ? ?R3 = EXPECTED RESULT 
BIC AXNUDC -R3 [CLEAR ANY UNUSED BITS 
MOV RMDC (RO), SBDDAT :STORE RMDC AT SBDDAT 
CMP SBDDAT RS 
BEQ 
MOV R3,$GDDAT 
EMT 4 
BR 60$ :SKIP TO NEXT 


C 10 
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DESIRED CYLINDER TRANSFER TEST 


SEQ 0119 
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4 
1211 017 
1 \¢ ett 
121 
1214 017004 
1215 
1216 
017004 
Ot roRe 
17010 
017014 
017020 
017024 
1217 
1218 017032 
1219 017036 
1220 
iss) 
12 4 o170e 
1$6 1704 
1224 017046 
1225 017054 
1¢66 017062 
1227 017064 
1228 017070 
1229 017074 
1230 017102 
1231 017104 
1232 
1235 
1234 017106 
1235 017106 
1236 017110 
1237 017112 
1238 7118 
1239 0171 
1240 0171 
1241 017178 
1st¢ 1714 
1245 017144 
1244 O17168 
1308 O17152 
1 4 O17136 
1243 0171 
1249 017164 
1250 g17108 
1251 HALL: 
1717 
1 28 17176 
1253 017202 
1254 017 
1255 01721 
1256 017214 
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000006 
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4-JAN-82 16:33:00 PAGE 13-25 


50S: a ae 


;SHIFT TO NEXT BIT 
CONTINUE IF R2 NOT ZERO 


3 
60S: 
{LARA AAAAAAAAAAAAAAERAEAARARAEAAAAARARRARAEAERAERERERAERERREREREE 
SRTEST 25 ILLEGAL REGISTER TEST 
ONS peep caer ans seat mmayba ea ni pg rade 
T25: 
sco :SCOPE CALL 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #25,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR S$GDDAT ;“ILR'’ SHOULD BE ZERO 
MOV #0,R2 TRZ=REGISTER INDEX 
iCLEAR AND VERIFY THAT “ILR' STATUS IS ZERO 
“JSR PC, CNTCLR 360 CLEAR CONTROLLER 
MOV RMER1 (RO) , SBDDAT sSTORE RMER1 AT SBDDAT 
BIC #°CILR,SBDDAT 
BEQ 0$ ;BRANCH IF ILR IS RESET 
CLR SGDDAT *SETUP GOOD DATA, REG ADR 
MOV RO, $BDADR 
ADD #RMER1, SBDADR 
EMT 64 
BR 140$ 
guRITE THE REGISTER (INDEX=R2) AND TEST ILR STATUS 
; mov ROR ;R3=REG ADDRESS 
MOV ERRVEC,-(SP)  ; ;PUSH ERRVEC ON STACK 
MOV ERRVEC4+2,-(SP) >:PUSH ERRVEC+2 ON STACK 
MOV #40$, ERRVEC sSETUP FOR BUS TIMEOUT 
MGV #PR6,ERRVEC +2 
CLR sR4=REGISTER VALUE 
cn #RIACS2.R2 
MOVB  (R1),R4 sSELECT DRIVE IF RMCS2 
30$: MOV WRITE TEST REGISTER 


R4, (R23) 
MOV (SP) +, ERRVEC+2 
mov (SP) +, ERRVEC 


608 
40$: MOV #45$, (SP) 


45$: 
MOV (SP) + ERRVEC+2 


MOV (SP) +; ERRVEC 
CMP R2,ARMECZ 
BHI $ 

MOV R3,$BDADR 


EMT 74 


>:POP STACK INTO ERRVEC+2 
::POP STACK INTO ERRVEC 


;DUMMY RTI ADDRESS 
sRESTORE PRIORITY 


>:POP STACK INTO ERRVEC+2 
::POP STACK INTO ERRVEC 
WERE ALL REGISTERS READ?? 


SEQ 0120 


C 
T 
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REGISTER TEST 


5 ILLEGAL 


at ed ad 
rorore 
Vw 
oon 


017 
17 
1260 017226 
1 Sie 
1 8s 017 te 
1264 017250 
1265 01725 
is Bi 
is 8 
017264 
1269 
1270 
1 gat 
1 a8 017 3 
1274 01727 
1275 01 
1s O17 30 
i 
1383 ot 
1296 ree 
1297 0173 
1298 017340 
444 017346 
1 017354 
1301 017362 
1306 017364 
1303 017370 
1304 017374 
1305 017400 
1306 017404 
1307 017406 
1308 
1309 017410 
1310 017414 
1311 017416 
1316 017422 
1313 017426 
1314 
1315 
0174 
0174 
174 
174 
174 
01744 
017446 


1317 017654 


000503 


—— © 


746 


SUNS 
WWW Ss 
NOY 


RNSRNOVS 
GISVINS 


rorore 
uNN 


Sot twat = BOON) 
So 


Soooooooeo 


ENON 
=] 


oo 

== 
o 

N 


26 
055156 


50S: 


70$: 


80s 


90$: 

1108: 
1208: 
130$: 
135$: 
140$: 


EMT 


sADVANCE TO 


140$ 


RMER1 (RO) , SBDDAT 
#°CILR,$SBDDA 
SGDDAT, SBDDAT 


R3,STMPO 
#ILR,SGDDAT 
5 

80$ 


66 


#ILR,SGDDAT 


#54 : 
#AI7:A16 RACSI (RD 


E 10 


#177774, ,RMBAE! 


#50,R2 
(SPS +, ERRVEC+2 


Ate mainte 


#74,R 
140$ 
10$ 


#135$, (SP) 


(SP) + ,ERRVEC+2 


(SP) +, ERRVEC 


sSTORE RMER1 AT SBDDAT 


1S “‘ILR’* OK?? 
sYES!! 
sSAVE ADDRE 


S$ 
3SHOULD ““ILR’* BE SET?? 
sYES!! 


THE NEXT REGISTER ADDRESS 


s INCREMENT INDEX 
TIME TO TRY RH70 ? 
CH IF NOT 


SBRANCH IF ALREADY CHECKED 


+;PUSH ERRVEC TACK 
::PUSH ERRVEC+2 ON STACK 
:SETUP FOR TIME 


OUT 


ET ILR 
START AT INDEX 54 IF RH70/22REG 
) *SET EXTEND BITS 
:READ THE EXTENDED BITS 


: OF 
;BRANCH IF RH70/22-REG 


SOTHERWISE NOT A RH70 OR RH70 WITH 32 REG 


[DONE ALL TESTS 
YES! ! 


DUMMY RTI ADDRESS 
sRESTORE PRIORITY 


[END OF TEST 
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S*TEST 26 


15126 


001226 


RESET GO BY INIT TEST 


© RAAAAAAERAEAARARRAAEEEEAEAERAAEEAARAEAAAARAAARAERERERAERERAREREE 
. 


#STACK sP 
SE.R 
TsTaue R1 
#26,$TESTN 


PC,CNTCLR 


sSCOPE CALL 


a THE STACK POINTER 
3RO = UNIBUS ADDRESS 

3R1_= POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


3GO CLEAR CONTROLLER 





A 





F 10 
CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-27 SEQ 0122 
T RESET GO BY INIT TEST 
\ 18 017460 010037 001136 MOV RO, SBDADR ;SETUP REGISTER ADDRESS FOR MSG 
1 sSET GO, INITIALIZE AND VERIFY THAT GO IS RESET 
i 1 017464 012760 000001 000000 MOV #GO,RMCS1(RO)  ;LOAD RMCS1 
1 01747 004737 055156 JSR CNT om 360 CLEAR CONTROLLER 
1324 01747 0160 ? 001142 MOV Sick ) SBDDAT" ;STORE RMCS1 AT S$BDDAT 
1325 017504 7? 177776 00114 BIC 60, $806 
1326 017512 0014 3 BEG 40 sBRANCH IF GO IS RESET 
1327 017514 005037 001140 CLR SGDDAT 
i 8 017520 104137 EMT 137 
i p 017522 10$: ZEND OF TEST 
1332 FRRAAAAAAAAAARRRRARRREREREERAERARARERARREEERRRRRREREREERERAEREEEE 
tSTEST 27 DIAGNOSTIC MODE TEST 
© RAAAAAAAAARARAEAAAAAEAEEAEEERAEAAERAERAAAEAARAERAEREERAAAAEAEEERERAAEKRE 
0175 3 127: 
0175 SCOPE :SCOPE CALL 
017526 NOP 
0175 0011 MOV #STACK, SP ;LOAD THE STACK POINTER 
0175 001276 MOV RO = UNIBUS ADDRESS 
017535 001466 MOV TSTQUE ,R1 RI = SOINTER TO DEVICE 
vn 017542 000027 001226 MOV #27, STESTN +;SET TEST NUMBER IN APT MAIL BOX 
1334 017550 001136 MOV RO, $BDADR :SETUP REGISTER ADDRESS 
1335 017554 000024 001136 ADD #RAMR'1, SBDADR 
1336 017562 CLR R3 sINITIALIZE ERROR FLAGS 
1338 sINITIALIZE AND VERIFY THAT DMD’ IS RESET 
1339 017564 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
1340 017570 016037 24 001142 HOV RAR] (ROD. SBD DAT’ sSTORE RMMR1 AT SBDDAT 
1341 017576 042737 177776 001142 BIC #°CDMD, $BD as 
1348 017604 001405 BEQ 1 ;BRANCH IF "DMD'’ IS ZERO 
134 017606 005037 001140 CLR $GDDAT 
1344 017612 104075 EMT 
1346 “SET AND RESET 'DMD'’ USING REGISTER TRANSFER-VERIFY “DMD’’ NOT S-A-1 
134 017614 10S: 
1348 017614 12760 000001 900024 MOV #DMD,.RMMRI(RO) ;LOAD RMMRI 
1349 017 1 760 000000 000024 MOV #0,RMMRI(RO) :LOAD RMMR1 
1350 0176 160 4 001142 MOV RMAR1 (RO), SBDDAT sSTORE RMMR1 AT SBDDAT 
1351 0176. ? 9000 6 001142 BIC g° CDAD. SBD A 
1 38 17644 0014 5 BEQ 0 ;BRANCH IF DMD NOT S-A-1 
135 17646 5037 001140 LR GDDAT 
1354 01765 104076 MT 
1355 017654 052703 000001 BIS #81T0,R3 :SET ERROR FLAG 


ONO 


gRESET AND SET "DMD" USING REGISTER TRANSFER-VERIFY “DMD'* NOT S~A-0 
; #0 RAR (RO) ZLOAD RMARI 
RO) | LOAD RAPR RMR I 
STORE RMMR1 AT SBDDAT 
;BRANCH IF DMD NOT S-A-0 


6197 
1 


17 

17604 : 
BN 3 

12737 000001 001140 MOV #DMD , SGDDAT 
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1 
chee SEQ 0123 


EMT 77 
BIS #B1T1,R3 3SET ERROR FLAG 


IF NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING 
{ONE BIT PATTERN 
oe R3 zANY ERRORS DETECTED?? 
BNE 608 YES! ! 
“teh MOV #B1T1,R2 SINITAILIZE DATA PATTERN 
“mov ,RMMR1(RO) ;LOAD RMMRI 
MOV R2_RMMR1(RO) _:LOAD RMMR1 
V RMAR1 (RO), SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #°CDMD , SBDDAT 
0 0$ ;BRANCH IF DMD NOT SET 
MOV R2,$TMPO TSAVE DATA 
MOV R2,$TMPO TSAVE DATA 
CLR GDDA [DMD SHOULD BE ZERO 
EMT 
SHIFT TO NEXT DATA BIT AND CONTINUE TEST IF NOT DONE 
“ASL R2 
BNE 40$ 
60S: sEND OF TEST 
f ERRAAAAAAARAEAAAAAARERRERARAERARARERAERRERERRARRERRERERARARERRERS 
S*TEST 30 MOL T 
ST gate i lai ta at nee se 
T30: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV : UNIBUS ADDRESS 


3RO = 
3R1_= POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


MOV TSTQUE ,R1 
MOV #30, S$TESTN 


JSR OS SBAADA 360 CLEAR CONTROLLER 
MOV RO, SBDADR sRO=REGISTER ADDRESS 
ADD #RMDS , SBDADR 

CLR R3 zR3=ERROR FLAG 


3SET DIAGNOSTIC MODE AND yenuey THAT *MOL’* IS ZERO 
MOV #DMD,.RMARI(RO) ;LOAD RMARI 
MOV pare bay) seoeat sSTORE RMDS AT S8DDAT 


BIC MOL, SBDDA 
BEQ 10$ 

CLR $GDDAT 

EMT 101 


BIS #B1T0,R3 sSET ERROR FLAG 
isel MAINTENANCE UNIT READY AND VERIFY THAT "MOL'’ IS ONE 
; #DMD.RMMR1(RO) ;:LOAD RMMR1 


MOV 
MOV DMD UR .RAAR cro) >LOAD RMMR1 
MOV RMDS(RO).SBDDAT ;STORE RMDS AT SBDDAT 
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: 
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#°CVV, $BDDAT 
LDAT 
135 
258: 
#1,R2 
30$: 
#DMD , RMMR1 (RO) 
R2,RMMR1 (RO) 
RMDS (RO) , SBDDAT 
#CHOL ,SBDDAT 
#MUR RZ 
40$ 
#MOL RB 
40S: RS, SBDDAT 
R2,$TMPO 
R3,$GDDAT 
103 
-SHIFT TO NEXT PATTERN 
50s: 
ADMD .R2 
60$ 
#DMD ,R2 
60$: Re 
70$ 
#DMD .R2 
30$ 
70$: 
S*TEST 31 WRITE LOCK TEST 
$131: 


41 
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#*CMOL , SBDDAT 


eSGDDAT 


1 
#B1T1,R3 


IF NO PREVIOUS ERROR 
TEST FOR BIT INTERFERENCE 


70$ 
RMDS (RO) ,SBDDAT 


ostaek 


S$BASE 
TSTQUE ,R1 
#31,$TESTN 


VERIFY VOLUME VALID IS RESET AND 


ZANY , ERROR DETECTED?? 
[STORE RMDS AT SBDDAT 
;BRANCH IF VV RESET 


INITIALIZE DATA PATTERN 


3LOAD RMAR1 


3LOAD RMMR1 

sSTORE RMDS AT SBDDAT 
3SETUP EXPECTED *™OL"’ 
3"MOL** SHOULD BE ONE 
31S MOL OK?? 

sYES!! 

3SAVE TEST PATTERN 


zDONT SHIFT DMD 


sDONT_TRUNCATE TES 
sSHIFT TO NEXT BI 
;BRANCH IF DONE 


sEND OF TEST 


{FARRAR AAAAAAAAREARAAAARARAEAARAAAARERERAEEAERAERERARAREEREREREREE 


sSCOPE CALL 


;LOAD THE STACK POINTER 
3RO = UNIBUS ADDRESS 

3R1_= POINTER TO DEVICE 

33SET TEST NUMBER IN APT MAIL BOX 


sKEEP DMD ON 
ONT INUE 


SEQ 0124 


-—o 


1 


WRITE LOCK TEST 
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e 
wee 
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Sore FEREEEEES 
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eed ce ed ed ce ee ee ed ed ee ed eed eed ed eed ed eed 
BRRRRRRERS 
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1037 ; 


033703 00000 


oe oo 


Bis 


000024 
aie: 
001143 


001140 


000024 


114 
114 


abt RB SBDADR 
ADD #RADS , SBDADR 
CLR $GDDA 
JSR PC, CNTCLR 
:SET DIAGNOSTIC MODE AND AND VERIFY “MW "WRL'’ IS ZERO 
MOV #DMD ,RMMR 
MOV RMDS (RO), SBDDAT 
BIC #°CWRL,SBDDAT 
BEO 10$ 
EMT 104 
BIS #B1T0,R3 
10$ 
MOV ADMD -RMARI(RO) 
MOV ADMD! 
BIC SBDDAT 
BNE 
MOV #WRL.SGDDAT 
EMT 
BIS #B1T1,R3 
20$ 
TST R3 
BNE 70$ 
MOV #1,R2 
TRANSFER DATA TO RMMR1, READ RMDS AND VERIFY WRL 
MOV #DMD ,RMAR1 (RO) 
MOV R2,RMMR1 (RO) 
MOV RMDS (RO) , SBDDAT 
BIC #*CWRL, SBDDAT 
CLR R3 
BIT #MUP ,R2 
BEQ 40$ 
BIS HURL RB 
40$: CMP R3, $BDDAT 
BEQ 508 
MOV R3,$GDDAT 
MOV R2STAPO 
EMT 1 
ADVANCE TO NEXT DATA BIT 
BIC #DMD ,R2 
BNE 408 
MOV ADMD ,R2 
60$: ASL Re 
BEO 70$ 
BIS #DMD ,R2 
BR 30$ 


I 10 
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MUP ,RMMR 5 LOAD RMMR1 
RADS (RO) *SBDDAT ;STORE nibs AT SBDDAT 


BRANCH IF WRL IS NOE 
WRL SHOULD BE SET 


LAG 
3 SETUP REGISTER ADDRESS 


sWRL SHOULD BE ZERO 
:c0. CLEAR CONTROLLER 


SET ERROR FLAG 

-IF NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE ON ‘MwP** 
j ANY OTHER ERROR?? 

SYES!! 

SINITIALIZE DATA PATTERN 


sDONT SHIFT DMD 


3DONT_TRUNCATE TEST 
SHIFT at BIT 


7KEEP DIAGNOSTIC MODE ON 
SCONTINUE TEST 


sR3=ERROR 


‘STORE RMDS AT SBDDAT 
3BRANCH IF WRL IS ZERO 
3SET ERROR FLAG 

s SET MAINTENANCE WRITE PROTECT AND VERIFY ‘WRL*’ IS ONE 


LOAD RMMR1 


sLOAD RMARI 


ZLOAD_RMAR1 
3STOPE RADS AT SBDDAT 
;CLEARUP RECEIVED "WRL'* 
GENERATE EXPECTED ‘WRL 


sWRL SHOULD BE SET 


21S WRL OK?? 


3YES!! 
3SAVE EXPECTED 
7SAVE DATA PATTERN 


SEQ 0125 


——- 






ws ——— ——  S _ 


J 10 
nated RM8O_DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-31 SEQ 0126 C 
131 WRITE LOCK TEST T 
1318 020614 70$: sEND OF TEST 
132 jAeAAeeeeeeReReKeARAAterereeeeAKeneeeAeeeneeeeeeteneeeeeenenenee 
s*TEST 32 DRIVE FAULT TEST 











© REA AAEAAAARAEAAAAAERAEEERAERERARARAEARAEERAEEERAAREAREREAERAARAREEEE 
020614 $132: 
020614 SCOPE :SCOPE CALL 
0 16 NOP 
0 MOV #STACK, SP : THE STACK POINTER 
020624 MOV [RO = UNIBUS ADDRESS 
9206 MOV TSTOuE R1 *R1 = POINTER TO DEVICE 
_ 0 001226 MOV #32, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
1518 020642 JSR PC CNTCLR 360 CLEAR CONTROLLER 
1519 020646 CLR R SINITIALIZE ERROR FLAGS 
1320 020650 MOV RO, SBDADR SSETUP REGISTER ADDRESS 
1521 020654 001136 ADD ARMER2 , SBDADR 
1368 020662 CLR SGDDAT DVC’* AND “UNS’* SHOULD BE ZERO 
130% sSET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT "DVC'’ IS NOT 
1525 sSTUCK-AT-ONE. 
1526 020666 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
1527 020674 012760 000000 000042 MOV #O,RMER2(RO)  :LOAD RMER2 
1528 020702 012760 000000 000014 MOV #0.RMER1(RO) :LOAD RMER1 
139 020710 016037 900042 00114 MOV RMER2 (RO) , SBDDAT ;STORE RMER2 AT SBDDAT 
1530 020716 042737 177577 00114 BIC #°CDVC,SBDDAT ;:1S “DvC" RESET?? 
1531 020724 001406 BEG 10$ YES! ! 
133 020726 10410 EMT 107 
1533 020730 052703 000001 BIS #B1TO,R3 sSET ERROR FLAG 
1334 020734 012737 040000 001140 MOV #UNS , $GDDAT 
1536 :VERIFY THAT "UNS" IS SAME AS “DVC"’ 
1537 02074 10$: 
1538 020742 016037 000014 001142 MOV RMER1(RO) ,SBDDAT sSTORE RMER1 AT SBDDAT 
1539 020750 04 737. 137777 «(001142 BIC #°CUNS , SBDDAT 
1540 020756 02 737 001140 001142 CMP SGDDAT.SBDDAT 1S "UNS" 0K?? 
1541 020764 001414 BEQ 30$ YES! ! 
134@ 020766 010037 001136 MOV RO, $BDADR *SETUP REGISTER ADDRESS 
1543 020772 062737 000014 001136 ADD #RMER1, SBDADR 
1544 021000 032737 040000 001140 BIT #UNS , SGDDAT :SHOULD "UNS" BE ON?? 
1545 021 100 BNE 20$ YES! ! 
1546 021010 10411 EMT 110 
1547 021012 000401 BR 30$ 
1548 021014 20S: 
1349 021014 104111 EMT 111 
1551 “RESET AND SET ‘MDF’, VERIFY THAT "DVC'’ IS NOT S-A-0. 
135¢ 021016 50$: 
1553 021016 012737 000200 001140 mov #DVC,SGDDAT :DVC SHOULD BE ON 
1554 1084 127 900001 4 MOV #DMD-RMMR1(RO) LOAD 
1332 1926 10 403 1963 Rov SOR SF Ri (RO) 2 ON mene AT SBDDAT 
1557 021046 042737 900048 $0143 BIC #°CDVC, SBODAT ’ 
138 BIS HUES gon RSs ABSenoan ZSPN adGs Stn abt 
1560 021062 $627 7 ae: 001136 ADD #RMER2, SBDADR 
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D AULT TEST 
10411 EMT 112 
0 70 990002 BIS #B1T1,R3 :SET ERROR FLAG 
005037 00114 CLR SGDDAT [UNS SHOULD BE OFF 
jVERIFY THAT "UNS" IS SAME AS "DVC"’ 
5737 001140 7 Ist SGDDAT sCHANGE DVC TO UNS 
0127 ; 040000 001140 aes MOV #UNS ,SGDDAT 
016037 14 00114 "MOV RMER1(RO) , SBDDAT :STORE RMER1 AT SBDDAT 
04 o3 137777 00114 BIC #°CUNS, SBDDAT 
023737 001140 00114 CMP SGDDAT .SBDDAT 
001414 BEQ 70$ ;BRANCH IF UNS IS OK 
010037 001136 MOV RO, $BDADR SSETUP REGISTER ADDRESS 
0627 7 000014 001136 ADD #RMER1, SBD 
032737 040000 001140 BIT #UNS , $GDDAT :SHOULD UNS BE ON?? 
907008 BNE 60$ YES! ! 
10411 EMT 113 
000401 BR 708 
60$: 
104114 EMT 114 
iI THERE WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON 
70$: 
005703 TST R3 
001056 BNE 120$ ;BRANCH IF ANY OTHER ERRORS 
012702 000001 es MOV #1,R2 SINITIALIZE TEST PATTERN 
012760 000001 000024 "mov #DMD,.RMMR1(RO) ;LOAD RMMR1 
012760 000000 000042 MOV #0,RMER2(RO) LOAD RMER2 
010260 000024 MOV R2.RMMR1(RO) LOAD 1 
016037 900042 00114 MOV R2(RO) sSTORE RMER2 AT SBDDAT 
042737 177577 00114 BIC #°CDVC,$BDDAT GET RESULTS 
037 001140 CLR DAT ?SETUP EXPECTED 
0 1008 000100 BIT F, ; SET? 
3 3 000200 001140 BIS #DVC,SGDDAT [YES-DVC SHOULD BE ON 
023737 001140 001142 90S: CMP SGDDAT SBDDAT 
901410 BEQ 100$ sBRANCH IF DVC IS OK 
10037 001136 MOV RO, $BDADR *SETUP REGISTER ADDRESS 
062737 000042 001136 ADD #RMER2 , SBDADR 
010237 001174 MOV R2,$TMPO sSAVE TEST PATTERN 
104115 EMT 115 
SHIFT TO NEXT BIT POSITION 
942702 000001 “Bie #DMD ,R2 :DONT SHIFT DMD 
100 BNE 110$ 
12702 000001 MOV ADMD ,R2 sDONT TRUNCATE TEST 
$76 108: AE Bos ST Te DONE 
052702 000001 BIS ADMD ,R2 sKEEP DMD ON 
000724 BR 80$ > CONTINUE 


sEND OF TEST 
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DRIVE FAULT TEST 


5 RARRRAAERERARERRRERREEEEEAERERAEREREERRAEERERRRERREREREREREREERS 


TeTEST 33 SEEK ERROR TEST 
OL Mignone at a ha acai NS RS ne cot 
$133: 
SCOPE :SCOPE CALL 
MOV #STACK, SP sLOAD THE STACK POINTER 
MOV SE RO *RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
MOV #33,STESTN +;SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR 360 CLEAR CONTROLLER 
CLR *CLEAR ERROR F 
MOV RO, $BDADR SSETUP REGISTER ADDRESS 
ADD #RMER2, SBDAD 
sSET DIAGNOSTIC MODE AND VERIFY THAT 'SKI‘’ CAN BE RESET 
MOV DMD, RMMR1(RO) ;LOAD RMMR1 
MOV #0.RMER2(RO) —:LOAD RMER2 
MOV R2(RO) , SBDDAT ;STORE RMER2 AT SBDDAT 
BIC #°CSKI,SBDDAT 
BEQ 10 :BRANCH IF SKI IS RESET 
CLR SGDDAT [SKI SHOULD BE ZERO 
BIS #B1T0,R3 :SET ERROR FLAG 
Set MAINTENANCE SEEK ERROR AND VERIFY THAT '‘SKI"’ CAN BE SET 
"MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
MOV #0,RMER2(RO) | :LOAD RMER2 
MOV #DMD !MSER, RMMR1 (RO) SLOAD RMMR1 
MOV RMER2(RO) . SBDDAT [STORE RMER2 AT SBDDAT 
BIC #°CSKI1,$BDDAT 
BNE sBRANCH IF SKI IS SET 
MOV #SK1,$GDDAT [CANT SET SKI 
BIS #BI1Ti,R3 :SET ERROR FLAG 
IF NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE 
"SEEK ERROR. 
50$: 
TST R3 
BNE 70$ ;BRANCH IF ANY OTHER ERRORS 
ee MOV #1,R2 * INITIALIZE TEST PATTERN 
"MoV #DMD,RMMR1(RO) ;LOAD RMMR1 
MOV #0. RAER2 (RO) [LOAD RMER2 
MOV R (R : RMMR1 
MOV RMER2(RO) , SBDDAT :STORE RMER2 AT $BDDAT 
BIC #°CSKI,$BDDAT ;GET SKI STATUS 
CLR DDAT SSETUP EXPECTED RESULT 
ei! #MSER RZ 
BIS #SK1,$GDDAT :SKI SHOULD BE ON 
40$: CMP SGDDAT, SBDDAT 
BEQ 50$ sBRANCH IF SKI IS OK 


SEQ 0128 


Ci 
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SEEK ERROR TEST 


oe 


1664 021612 910237 001174 MOV R3 $TMPO sSAVE TEST PATTERN 
1665 021616 104120 EMT 126 
1667 “ADVANCE TEST PATTERN IN R2 
1668 021620 S0$: 
1669 0216 0 042702 000001 BIC #DMD ,R2 ;DONT SHIFT DMD BIT 
1670 021624 901002 BNE 60$ 
1671 021626 12702 000001 MOV #DMD ,R2 :DONT TRUNCATE TEST 
lore 021632 00630 60$: ASL R2 *SHIFT TO NEXT BIT 
1673 021634 0014 BEQ 70$ SEXIT IF DONE 
1674 021636 052702 000001 BIS #DMD ,R2 ‘KEEP DMD ON 
1675 021642 000731 BR 30$ S CONTINUE TEST 
1677 021644 70S: sEND OF TEST 
3g FRRAAAARERERERAERERERERERERERERARARRRERERERRERRERRERERRERERERREE 
SeTEST 346 PIP TEST 
By RARER EREEEEEEEAERRAEARAARRAEAERAAAREERAEEARARREERKEEE 
021644 TST34: 
021644 000004 SCOPE zSCOPE CALL 
921646 000240 NOP 
021650 012706 001100 MOV #STACK, SP sLOAD THE STACK POINTER 
021654 013700 001276 MOV [RO = UNIBUS ADDRESS 
021660 013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
‘ei 021664 012737 000034 001226 MOV #34, S$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
1681 021672 004737 055156 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
1682 021676 005003 CLR R3 SRESET ERROR FLAGS 
1683 021700 010037 001136 MOV RO, $BDADR SSETUP REGISTER ADDRESS 
1684 021704 062737 000012 001136 ADD #RMDS , SBDADR 
1686 sSET MAINTENANCE ON CYLINDER 'MOC’’ AND VERIFY THAT ‘PIP'’ CAN BE RESET. 
1687 021712 012760 000001 000024 MOV #DMD.RMMR1(RO) ;LOAD RMMR1 
1688 021720 012760 000401 000024 MOV #DMD !MOC , RMMR1 (RO) sLOAD RMMR1 
1689 021726 016037 000012 001142 MOV RMDS(RO).S$BDDAT ;STORE RMDS AT SBDDAT 
1690 021734 042737 157777 001142 BIC #*CPIP,S$BDDAT 
1691 021742 001405 BEQ sBRANCH IF PIP IS RESET 
1692 021744 005037 001140 CLR $GDDAT 
1693 921750 104121 EMT 
1694 021752 052703 000001 BIS #BITO,R3 :SET ERROR FLAG 
16 “RESET MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP’ CAN BE SET 
1696 021756 10$: 
1698 021756 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
1699 0 1764 01603 012 00114 MOV RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
1700 021772 737. 157777 00114 BIC #°CPIP, SBDDAT 
1701 022000 901006 BNE 20$ :BRANCH IF PIP IS SET 
170¢ 022002 012737 020000 001140 MOV #PIP.SGDDAT 
170 92001 1041¢e EMT 12 
1704 012 052703 000002 BIS #B81T1,R3 :SET ERROR FLAG 
17 -IF NO PREVIOUS ERROR, TEST FOR ADJACENT BIT SETTING "MOC" 
1006 922016 50$: 
1708 022016 005703 TST R3 
1709 022020 001046 BNE 70$ :BRANCH IF ANY PREVIOUS ERROR 
1710 022022 012702 000001 MOV #1,R2 * INITIALIZE TEST PATTERN 
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1711 
Ile “WRITE THE TEST PATTERN, CHECK MOC USING PIP 
1713 022026 50S: 
1714 0 926 1 000024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
1715 0 : MOV R2,RMMR1(RO)  :LOAD RMMR1 
1716 9 0 901142 MOV RMDS(RO) ,$BDDAT :STORE RMDS AT SBDDAT 
171 114 BIC #°CPIP,SBDDAT :GET PIP STATUS 
1718 0 30 CLR $GDDAT <SETUP EXPECTED RESULT 
1719 022060 BIT #MOC,R2 
1720 0 3064 BNE 40 
1721 0 066 001140 BIS #PIP,SGDDAT :PIP SHOULD BE SET 
17 Q 9220 4 001142 40$: CMP SGDDAT, SBDDAT 
1723 022102 BEQ 5 :BRANCH IF PIP OK 
1726 0281 MOV Re STMPO SSAVE TEST PATTERN 
V7 5 022110 EMT 123 
1727 *ADVANCE THE TEST PATTERN 
1728 0 3112 50$: 
1729 02211 BIC #DMD ,R2 :DONT SHIFT DMD 
1730 0 116 BNE 60$ 
1731 02212 MOV #DMD,R2 ;DONT TRUNCATE TEST 
1732 022124 60$: ASL R2 SSHIFT BIT 
173 022126 BEG 70$ [EXIT IF DONE 
1734 0221 BIS #DMD ,R2 : DMD ON 
1735 022134 BR 30$ SCONTINUE TEST 
1737 022136 70$: ZEND OF TEST 
1739 a3 RERERAAEAAERARAARARAERRERERERERERERERARAREREERERRERRAERERERREEKEKKE 
SeTEST 35 EBL TEST 
PY RRR REREREEAERRERAEEEREKEERAREEREKEERKERERAEKERERERRAEE 
022136 TST35: 
022136 Scop :SCOPE CALL 
022140 NOP 
022142 MOV #STACK, SP :LOAD THE STACK POINTER 
022146 MOV ‘RO = UNIBUS ADDRESS 
022152 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
ai 022156 001226 MOV #35, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
1741 022164 ; CLR R3 ;RESET ERROR FLAGS 
174 022166 MOV RO, $BDADR *SETUP REGISTER ADDRESS 
174 0281 001136 ADD #RAMR1, SBDADR 
1766 022200 CLR SGDDAT :SETUP EXPECTED RESULT 
1766 3CLEAR AND VERIFY THAT END OF BLOCK IS RESET 
1747 022204 JSR ,CNTCLR 360 CLEAR CONTROLLER 
1748 022210 001142 MOV RMAR1 (RO) ,SBDDAT sSTORE RMMA1 AT SBDDAT 
1749 028 16 00114 BIC #°CEBL,SBDDAT 
1750 022226 BEQ 10$ :BRANCH IF EBL IS RESET 
1751 022006 EMT 124 
173¢ 0222 _ BIS #B1T0,R3 :SET ERROR FLAG 
1754 “SET AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1. 
1755 022234 10S: 
1756 022234 000024 MOV #DMD - RMMR1 (RO) gL OAD RMMR1 
1757 022242 000024 MOV #DMD !DEBL,RMMR1 (RO) :LOAD RMMR1 
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BL TEST 


? 
768 08 
6h 


20$ 


50s 


sWRITE, 
40S: 


50s 


60$: 


70$: 





MOV #DMD.RMMR1(RO) ;LOAD RMMR1 

MOV RMMRI (RO) ,SBDDAT sSTORE RMMR1 AT SBDDAT 
BIC #°CEBL, SBDDAT 

BEG 20$ ;BRANCH IF EBL IS RESET 


125 
BIS #B1TO,R3 3SET ERROR FLAG 


*RESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0 


MOV ADMD -RMMR1 (RO) ;LOAD RMMR1 

MOV #DMD | DEBL ,RMMR1 (RO) :LOAD RMMR1 

MOV 1(RO) , SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #°CEBL, SBDDAT 

BNE 30$ ;BRANCH IF EBL IS SET 

MOV #EBL .SGDDAT 


BIS #B1T1,R3 SET ERROR FLAG 


:I1F NO PREVIOUS ERRORS, TEST FOR ADJACENT BIT INTERFERENCE ON ‘DEBL"’. 


TST R3 
BNE 70$ s;BRANCH IF ANY ERROR 
MOV #1,R2 INITIALIZE TEST PATTERN 


READ AND VERIFY THE TEST PATTERN IN R2 
#DMD,RMMR1(RO) ;LOAD RMMR1 
1(RO 


MOV 

MOV R2, ; RMMR1 

MOV RMMR1 (RO) , $BDDAT sSTORE RMMR1 AT S$BDDAT 
BIC #°CEBL,SBDDAT 

MOV R2,R3 :GENERATE EXPECTED RESULT 

BIC #*CEBL,R3 
CMP R3, SBDDAT 
BEQ 50$ 

MOV R3,$GDDAT 
MOV Re $TMPO 
EMT 127 


sBRANCH IF EBL IS OK 
sSAVE EXPECTED RESULT 
3SAVE TEST PATTERN 


sSHIFT TO NEXT BIT POSITION 


elt #DMD ,R2 DONT SHIFT DMD 


MOV #DMD ,R2 sDONT_TRUNCATE DMD 
ASL R SHIFT TO NEXT BIT 
BEQ 70$ sEXIT IF DONE 


sKEEP DMD ON 
sCONTINUE TEST 


sEND OF TEST 


BIS #DMD ,R2 
BR 40$ 


© RRAARAAARERARAAERARERREERERERRERERRARERERERERERAEEEAEEERERERERERE 


2*0 


s*TEST 36 LAST SEC 
2 *TRANSFER TEST PATTERN 
3*SECTOR/TRACK “‘LST** FOR EACH TRANSFER. 

F RMDA FOR WHICH LS AND LST ARE SET. 


TOR, LAST TRACK TEST 
TO RMDA THEN VERIFY LAST SECTOR "LS'’ AND LAST 


THE TABLE BELOW LISTS THE VALUE 


c 11 
ted RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-37 
T LAST SECTOR, LAST TRACK TEST 


SEQ 0132 


T MODE 16 Bir MODE 


fuse 8H ay noe wea se 





3* 
:#LST= 006435 006436 006437 
rH ° RRRRRAERARARRAREREREEREREREERREAAEARARERAAEARAREAERRARARERRAEREEKE 
022460 1$136 
0224 SCOPE :SCOPE CALL 
0224 240 NOP 
0 464 01 06 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
022470 013700 001276 MOV S$BASE ,RO ‘RO = UNIBUS ADDRESS 
022474 01 701 0014 MOV TSTOUE AR *R1 = POINTER TO DEVICE 
022500 012737 000003 001206 MOV #3, S$TIMES +:D0 3 ITERATIONS 
ie 022506 012737 000036 001226 MOV #36,STESIN +:SET TEST NUMBE® IN APT MAIL BOX 
1822 022514 005002 CLR R2 sINITIALIZE TEST PATTERN 
1823 022516 010037 001136 MOV RO, SBDADR [SETUP REGISTER ADDRESS 
1824 022528 062737 000024 001136 ADD ARMAR1 , SBDADR 
1825. 0225 005037 001444 CLR RMOF O :START IN 18 BIT MODE 
1826 0 3534 013737 001334 023114 MOV LSTRK 808 :SETUP LAST TRACK AND 
1827 022542 112737 35 023114 a MOVB #035,60$ *LAST SECTOR (29.) 
1829 022550 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
1830 022554 013760 001444 000032 MOV RMOFO,RMOF(RO) :L 
1831 022562 016037 000032 001176 MOV RMOF (RO), $TMP1 :STORE RMOF AT STMP1 
183¢ 022570 010260 000006 MOV R2,RMDA(RO) SLOAD 
183 022574 016037 000024 001362 MOV RMAR1 (RO) ,RMMR11 ;STORE RMMR1 IN INPUT BUFFER 
1834 0. 602 013737 001362 001142 MOV RMMR1I,$BODAT  ; VERIFY "LS" 
1835 022610 042737 177773 001142 BIC #°CLS, $BDDAT 
1836 022618 005037 001140 CLR $GDDA :GENERATE EXPECTED "LS" 
1837 0 622 32737 010000 001444 BIT #EMT16,RMOFO  :16 BIT MODE ? 
1838 0226 001010 BNE 208 YES! ! 
1839 022632 032737 001000 001444 BIT #SSE1,RMOFO 216 BIT MODE W/ SSEI ? 
1840 vs: 640 001010 BNE 53 Yes !! 
1841 022642 123702 023114 CMPB 0$.R2 [18 BIT MODE LAST SECTOR ? 
184¢ 022646 001014 BNE it} [NO !! 
1843 022650 10 BR 0$ 
1844 022652 123702 023114 20$:  CMPB O$.R2 316 BIT MODE LAST SECTOR ? 
1845 022656 001010 BNE $ =NO !! 
1846 02 000404 BR 0$ 
1847 022662 123737 023114 001140 25$:  CMPB 0$,$GDDAT 316 BIT MODE W/ SSEI LAST SECTOR ? 
1868 022670 001003 BNE 5$ [NO !! 
1850 022672 052737 000004 001140 30$: BIS #LS,SGDDAT zLS SHOULD BE ON-16 BIT MODE 
1851 029700 02 r3 $0998 001142 308: CMP SGDDAT , SBDDAT 
185¢ 02271 001404 BEQ ;BRANCH IF LS IS CORRECT 
1853 022710 010237 001174 MOV Re $TMPO *SAVE TEST PATTERN 
1854 026714 104130 EMT 130 
1536 022716 000477 BR 90$ :SKIP TO NEXT 
1857 022720 013737 001362 001142 40$: MoV RMMRII,SBDDAT  ;VERIFY "LST* 
1858 68 726 2730 0136 00114 BIC #*CLST, SBDDAT 
1859 0227 037 901140 CLR $ sGENERATE EXPECTED "LST" 
3 740 O64 37 10000 601444 BIT #FMT16,RMOFO 16 BIT MODE?? 
186 750 032737 001000 001444 BIT #SSEI,RMOFO £16 BIT MODE W/ SSEI ? 
1863 022756 001010 BNE 55$ YES !! 
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SEQ 0133 
ar MODE LAST TRACK/SECTOR ? 
iy MODE LAST TRACK/SECTOR ? 


16 a MODE W/ SSEI LAST TRACK/SECTOR ? 
LST SHOULD BE SET 
+3 ae STATUS CORRECT ? 


IF YES 
;SAVE TEST PATTERN 


3SKIP TO NEXT 


zADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL 


3 INCREMENT PATTERN 
INUE_IF NOT _D 
SDONE, 16 BIT TEST ? 
3D0 16 BIT_FORMAT TEST 
SSTORE LAST SECTOR ADDRESS 
eee at 16 BIT FORMAT W/ SSEI SET ? 
[SET SSEI WITH 16 BIT MODE AND 
3ST ORE LAST SECTOR ADDRESS 
sTEST AGAIN 


sHOLDS LAST TRACK/SECTOR ADDRESS 


{RRAAAAAAAEEREERAERRERERERERARAERARARARREEERAERERARREREARRREEREERE 
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CTOR, LAST TRACK TEST 
3702 023114 CMP 808 .R2 
101 BNE 65$ 
0 BR 608 
702 023114 50$: CMP O$.R2 
50 ene Shs 
02 702 023114 55$: CMP $08. R2 
1 BNE 65$ 
05 990002 001140 60$: BIS #LST,SGDDAT 
0237 7 001140 001142 658: CMP SGDDAT , SBDDAT 
010237 001174 MOV Re $TMPO 
104131 EMT 131 
BR 90$ 
18 BIT TESTS DONE. 
005202 INC R 
1244 BNE 10$ 
2737 010000 001444 BIT #FMT16,RMOFO 
001007 BNE 7 
0127 7 010000 001444 MOV #FMT16,RMOFO 
112737 000036 023114 MOVB #036,80$ 
000631 BR 10$ 
032737 001000 001444 75$:  =BIT #SSEI,RMOFO 
001470 BEQ $ 
052737 001000 001444 BIS #sSEl RMOFO 
112737 000037 023114 MOVB #037,60$ 
000616 BR 
000000 80$: .WORD 0 
90$: 
tSTEST 37 RMDA COUNT TEST 
1$137 
000004 ScoP 
909240 NOP 
01 11 MOV #STACK i 
013701 1366 mov rerauese 
12737 03 1206 MOV 3,311 ate 
o15385 00003 ees MOV ? STESIN 
10037 001136 MOV RO, SBDADR 
Dez? 7 001136 ADD #RADA »SBDAD 
GOH BSNS asneon FEO 08 
13 7 1 p536e8 MOV Bos 


sSCOPE CALL 
iRO = UNI yo ys POINTER 
SS 
3R1 = POINTER TO DEVICE 
300, 3_ITERATIONS 
SISET TEST NUMBER IN APT MAIL BOX 
zSETUP REGISTER ADDRESS 
sSTART WITH 18 BIT FORMAT 


TSETUP LAST SECTOR FOR 18 BIT 
7SETUP FIRST COUNT 


z INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT 
SSECTOR 0 AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS 


E 11 
CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-39 SEQ 0134 
137 RMDA COUNT TEST 





1913 : .CLEAR THE MASSBUS 

1914 : .SET F 

1915 : "LOAD SECTOR AND TRACK ADDRESS 

1916 ; -ENABLE DEBUG CLOCK 

191 : “SET GO BIT 

1918 0 10S: 

1919 737 JSR PC,CNTCLR :G0 CLEAR CONTROLLER 

1920 10 0127 MOV #DMD,RMMR1(RO) LOAD RMMAT 

1921 16 0127 MOV #0,RMER1(RO) LOAD RMER1 

19 g 4 0127 MOV #O.RMER2(RO) LOAD RMER2 

19 12760 MOV #0.RMDA(RO) [LOAD RMDA 

1924 40 01 760 MOV RMOFO,RMOF (RO) LOAD RMOF 

1925 46 01 MOV RMOF(RO),$TMPO :STORE RMOF AT STMPO 

1926 54 012760 MOV ADMD ! DBEN,. RMMR1 (RO) :LOAD RMMR1 

1927 023262 012760 MOV #G0,RMCS1(RO)  ;LOAD RMCS1 

19 vee ise AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA. 

1931 023, 012760 060001 000024 MOV #DMD ! DBEN! DEBL ,RMMR1 (RO) :LOAD RMMR1 
1932 023276 912760 040001 000024 MOV #DMD | DBEN, RMMR1 (RO) *LOAD 

1933 0 01603 001142 MOV RMDA(RO),SBDDAT ;STORE RMDA AT SBDDAT 

1934 023312 023737 001142 00114 CMP SBDDAT ,SGDDAT 

1935 0233 9 001408 BEQ 308 :BRANCH IF RMDA OK 

1936 023322 1041 EMT 132 

1937 023324 000416 BR 50$ sOUT OF SYNC=SKIP TO NEXT 
1939 zADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT 
1940 * COMPLETE 

1941 033526 50s 

1948 0 3326 005237 001140 INC SGDDAT ZINCREMENT EXPECTED SECTOR 
194 08358 123737 001142 023622 CMPB = SBDDAT, 1108 [WAS THE LAST SECTOR JUST COUNTED?? 
1944 02 9 001004 BNE 40$ :NO!! 

1945 023342 105037 001140 CLRB . $GDDAT SYES-NEXT SECTOR SHOULD BE ZERO 
1946 02334 105237 001141 INCB © SGDDAT#1 S INCREMENT TRACK ADDRESS 
1947 023352 105737 001142 40$: TSTB  $BDDAT SHAS A FULL CYCLE BEEN COUNTED?? 
1948 023356 001401 BEQ 50$ :YES=DO NEXT 

1949 023360 000743 BR 25$ SCONTINUE SECTOR TEST 

1951 s INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK. START AT TRACK 0, 
195¢ phot iLAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE. 

1954 0 3360 013737 023622 001420 MOV 110$,RMDAO ZSTARTING TRACK ADDRESS = 0 
1955 023370 012737 000400 001140 MOV #TA1, SGDDAT SFIRST VALUE AFTER INCREMENT 
1989 : .CLEAR THE MASSBUS 

1958 ; ~SET FORMA 

1959 : “LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS 
1960 ; -ENABLE DEBUG CLOCK 

1961 : “SET GO BIT 

1962 023376 60S: 

196 02 376 004737 055156 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 

1964 0 3408 013760 1444 32 MOV RMOFO,RMOF(RO) LOAD RMOF 

1965 02 10 0137 1420 006 MOV RMDAO,RMDA(RO) LOAD RMDA 

1966 0 3416 ot 760 1 00 4 MOV ADMD -RMARI(RO) LOAD RMMR1 

196 08 “4 12760 1 4 MOV #DMD ! DBEN, RMMR1 (RO) z LOAD RMR 1 

1968 023432 012760 1 000000 MOV #GO,RMCS1(RO)  ;LOAD RMCS 
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;CLOCK RMDA USING DIAGNOSTIC END OF 1 B49 K 
MOV #DMD ! DBEN! DEBL 
#DMD ' DBEN, “se 


MOV 


s VERIFY ~— ACCORDING TO SGDDA 


CMP 
BEQ 
EMT 
BR 


70$ 
INCB 
MPB 


80S: MOV 


90$: 


95$: 


100$: MOV 


110$:  .WORD 


120$: 


FRRAAAAAAAAAAAAARARARERERERERERARAAERAEAAAREARERARAEEARAEEEERREREE 


RMDC COUNT TEST 


“> “lentes ieee nema 


tSTEST 40 
18140 


:SETUP FOR NEXT 


RMART (RO) 


;LOAD RMMR1 
;LOAD RMARI 


RMDA (RO) SBDDAT_ sSTORE RMDA AT SBDDAT 


Lee 


s0UT OF SYNC-SKIP TO NEXT 


INCREMENT OF RMDA TRACK ADDRESS 
guaeene? EXPECTED TRACK 
' 


SGDDAT+1 
SSDDAT#I oLSTRK+ +1" 
80$ 


SGDDAT 
SBDDAT ,RMDAO 


110$,RMDAO 
60$ 


#FMT16,RMOFO 
#FMT16,RMOFO 
#30,.1 1108 
100$ 
#SSEI,RMOFO 


#SSEI RMOFO 
31.1108 


#1,SGDDAT 
108 


ESTACK f° 
rere R1 
saethieein 


ives BOTH FORMATS?? 


3SET 


7SET LAST SECTOR FOR 16 MODE 


OOS 16 BIT MODE W/ SSEI SET ? 
3SET SSEI W/ 16 BIT MODE AND 


WAS THE LAST TRACK JUST COUNTED?? 


5 YES-NEXT TRACK, SECTOR SHOULD BE ZERO 
HAS A FULL CYCLE BEEN COUNTED?? 


iY 
‘INCREMENT FROM LAST SECTOR 


FORMAT BIT FOR 


SET LAST SECTOR 


SET FIRST el VALUE 
;REPEAT TEST 


zSTORAGE FOR LAST SECTOR VALUE 


sSCOPE CALL 


sLOAD jon | STACK POINTER 


RY = Po = POINTER TO DEVICE 
7:SET TEST NUMBER IN APT MAIL BOX 


2 CLEAR — SET FORMAT AND SETUP PROGRAM 


ADD 
CLR 


RO, SBDADR 
#RADC , SBDAD 
RMOF 0 


PARAMETERS 
sSETUP REGISTER ADDRESS 
sSTART WITH 18 BIT FORMAT 


16 


SEQ 01 5 | 
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1 7% 013737 0013 1420 MOV. —sLSTRK,RMDAO —_; LOAD _LAST_TRACK AND 

17 00870 Te, MOtass fords os, OOF ~ RMDAO SLAST SECTOR 

1 a5 0047 7 55156 " ‘JSR PC -CNTCLR 360 CLEAR CONTROLLER 


#1,$GDDAT [LOAD FIRST INCREMENTAL VALUE 
#0 ,RMDC (RO) sLOAD RMDC 


; -CLEAR THE MASSBUS 

: oSET OFFSET 

; LOAD LAST SECTOR AND TRACK ADDRESS 
; “ENABLE i CLOCK 


000000 


Ur UNh O00 IO 
| 
oe 
a 
—_ 
fron. 
~ 

~ 
= 
Ss 
r 
oe 
as 
<< 


“SET 
8 50S: 
8 737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
0 15760 1444 000032 MOV RMOFO,RMOF(RO) LOAD RMOF 
1 023744 0160 7 32 001174 MOV RMOF (RO) ,STMPO i STORE RMOF AT $TMPO 
32 023752 013760 001420 000006 MOV AO OABACROD OAD RADA, 
2033 023760 012760 900024 MOV ADMD  RMAR1 (RO) :LOAD 
2034 023766 012760 040001 000024 MOV #DMD | DBEN .RMMR1 (RO) RT OAD RMMR1 
2035 023774 012760 000001 000000 MOV #GO,RMCS1(RO)  ;LOAD RMCS1 
2037 ;CLOCK THE CYLINDER ADDRESS USING DEBL 
38 02400 012760 1 000024 MOV ADMD! DBEN N! DEBL -RMMR1 (RO) -LOAD RMMR1 
2039 024010 012760 040001 000024 MOV #DMD | DBEN, RMMR1 (RO) LOAD 
2040 024016 016037 000034 001142 MOV ORO ROD NOOAT 6 s STORE ribe AT SBDDAT 
2041 024024 023737 001140 001142 CMP SGDDAT, T, SBDDAT 
2042 024032 001402 BEQ :BRANCH IF RMDC=RMDC+1 
2043 024034 104140 EMT 140 
024036 000442 BR 60$ :0UT OF SYNC-SKIP TO END 


p= gADVANCE EXPECTED RESULT FOR NEXT INCREMENT 
8 024040 005237 001140 “INC SGDDAT sADVANCE NEXT RESULT 
2049 024044 022737 002000 001140 CMP #1024.,$GDDAT :SHOULD NEXT VALUE BE ZERO?? 
2050 024052 00100¢ BNE 40$ NO! ! 
2051 024054 00503 901140 CLR S$GDDAT TYES-RMDC SHOULD OVERFLOW 
05¢ 024060 005737 001142 40$: TST SBDDAT 31S ONE CYCLE COMPLETE? 
53 024064 001401 BEQ 50$ YES!! 
54 0 40 000721 ian BR 20$ + CONTINUE 
36 024070 032737 010000 001444 : IT #FMT16,RMOFO ZDONE, 16 BIT FORMAT MODE ? 
58 0, £900 1 23 010000 001444 MOV #EMT16,RMOFO  :SET 16 BIT FORMAT AND 
59 026106 112737 000036 001420 MOVB #30.,RMDAO SLAST SECTOR 
t erig omer a Gal pe 
4116 032737 001000 001444 “<. or #SSE1,RMOFO ;DONE 16 BIT MODE W/ SSEI SET ? 
0 ci86 eae 1 001444 te ooeel RMOFO aVES i: SSEI W/ 16 BIT MODE AND 
5 9 4134 112737 ated 001420 MOVB #31.,RMDAO SLAST SECTOR 
4142 000663 BR 10$ SREPEAT TEST 
024144 60S: 
9 FRRAAAAAAARAAAAARAAAAAERERERERARARARAERERERAAAERERERAREEREREO REE 
tSTEST 41 LBT TEST 
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LBT TEST 
024144 


4216 


0 “36 
024224 


024 ; 


te42s 
024236 
024244 


LLSSSs 

eer er Sor Por 

SSNS 
SSSN 


g 
NS 


—, 
232 
zs 
=N 


par gar er Serer perry 
NIN 


ere 


g1s08r 


1 
1 


173779 


002000 


010000 


00086 


Oo1326 


001136 


Oo14s0 


001444 


1444 
1420 


TST41: 


muB@ eo Ge Ge Ge Ge Se 


Fygre Sete te te . 


30$: 


SCOPE :SCOPE CALL 

MOV ESTACK f° THE STACK POINTER 
MOV <RO = UNIBUS ADDRE 

MOV rere, R1 3RI = POINTER TO DEVICE 
MOV MES 700 3 1 

MOV fai STEIN tISET TEST NUMBER IN APT MAIL BOX 
MOV RO. SEDADR ;SETUP REGISTER ADDRESS 
ADD #RADS , SBDADR 

CLR sSTART WITH 18 BIT MODE 
MOV tSIRK RMDAO [SET LAST TRACK AND 
MOVB  #29.,RMDAO SLAST SECTOR 

CLEAR THE MASSBUS 

SET FORMA 

LOAD LAST TRACK AND SECTOR 

LOAD LAST CYLINDER 

VERIFY THAT "‘LBT’’ IS RESET 

JSR rein CLR :G0 CLEAR CONTROLLER 
MOV 9 - RADE (RO? LOAD RMDC 

MOV MDA(RO) st OAD RMDA 

MOV (RO) LOAD RMOF 

MOV RO AMOE SSTORE RMOF AT STMPO 
MOV RMDS(RO).SBDDAT :STORE RMDS AT SBDDAT 
BIC #°CLBT,SBDDAT 

BEQ 0$ :BRANCH IF LBT IS RESET 
CLR S$GDDAT *LBT SHOULD BE ZERO 
EMT 141 

ENABLE DEBUG CLOCK 

SET GO 

FORCE EBL 

VERIFY THAT LBT IS SET 

MOV #DMD, ( OAD RMMR1 

MOV #0.RAERI(R ) LOAD RMER1 

MOV RMER2(RO) LOAD RMER2 

MOV #G0,RMCS1(RO) :LOAD RMCS1 

MOV #omb ‘D8 EN! DEBL RAR eROD :LOAD RMMR1 
MOV DA DEEN, MARI CR LOAD 

MOV RADS (ROD sS0pAT RO TORE nibs AT SBDDAT 
BIC #°CLBT,SBDDA 

BNE 30$ :BRANCH IF LBT IS SET 
MOV T, SGDDAT 

EMT 13 

BR 40 

BIT #EMT16,RMOFO — ;DONE 16 BIT FORMAT ? 
MOV FEMT16,RMOFO — :SET ié BIT MODE AND 
MOVB #30.,RMDAO SLAST SECTOR 


SEQ 0137 


—o- 


1 LBT TEST 
119 0244 000677 
1 44 
121 0244 4 14 
\$¢ 444 7 
1 7 
126 024452 112737 
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1 
1 
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_ BR 10$ sTEST AGAIN. 
001444 ° iT H SE1,RMOFO DONE 16 BIT MODE W/ SSEI SET ? 
001444 BIS #SSE1,RMOFO [SET SSEI W/ 16 BIT MODE AND 
1420 MOVB #31.,RMDAO SLAST SECTOR 
[TEST AGAIN. 
408: 
f ERRAAAAAAAAARAAAAAAAAERAEAERARAAERAERARERAERAREARERERRERARERAEEEE 
T*TEST 42 COMPOSITE ERROR TEST 
ay apc aget emcar gn8sb amet ee Raaamea imeRomBripseap HE 
T42: 
SCOPE :SCOPE CALL 
MOV #STACK s ;LOAD THE STACK POINTER 
MOV $BASE ,R [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
001226 MOV #42, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
mov RO, SBDADR ;SETUP REGISTER ADDRESS 
001136 ADD #RMDS , SBDAD 
SUSING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE 
TERROR IS RESET. 
JSR PC, CNTCLR 760 CLEAR CONTROLLER 
000024 MOV #DMD, ) LOAD RMMR 
000014 MOV #0,RMERI(RO) LOAD RMER1 
MOV #0. RMER2(R [LOAD RMER2 
114 V RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
00114 BIC #°CERR, SBDDAT 
BEQ 10$ ;BRANCH IF ERR IS RESET 
CLR SGDDAT 
EMT 143 
001140 10$: MOV #ERR, SGDDAT 


3SET BOTH ERROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET 
MOV #1 RO) ;LOAD RMERI 


000014 . (RO): 
00004 MOV #~1-RMER2(RO) LOAD RMER2 
00114 MOV RMDS(RO),SBDDAT :STORE RMDS AT SBDDAT 
00114 BIC #°CERR, SBDDAT 
BNE $ ;BRANCH IF ERR IS SET 
EMT 144 
VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1 
"mov #1,R2 sINITIALIZE TEST PATTERN 
guRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
" «JSR PC, CNTCLR 360 CLEAR CONTROLLER 
24 MOV 40D, RMMR1(RO) LOAD RMR 
14 MOV JRMERI(RO) LOAD RMER1 
2 MOV *RMERZ(RO) LOAD RMER 
MOV R2-RMER1(RO) — :LOAD RMER 
001142 MOV RMDS(RO),SBDDAT :STORE RMDS AT SBDDAT 


SEQ 0138 


am 
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2 COMPOSITE ERROR TEST 
166 9 4 2737 (137777 (001142 BIC #*CERR, SBDDAT 
167 024671 1 5 BNE 40$ ;BRANCH IF COMPOSITE ERROR SET 
168 471 10 1176 MOV R2,$TMPO SSAVE RMER1 TEST PATTERN 
169 471 7 001176 CLR STAP1 SSAVE RMER2 TEST PATTERN 
7 4722 104145 EMT 145 
1% “ADVANCE THE TEST PATTERN FOR RMER1 
173 026724 40s: 
174 024726 906302 ASL R2 
1% 024726 00134 BNE 308 ZCONTINUE IF TEST NOT DONE 
177 “VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2 
178 024730 $0$: 
179 0247 012702 000001 MOV #1,R2 sINITIALIZE TEST PATTERN 
180 024734 012737 010000 001444 MOV #FATI6,RMOFO SET 16 BIT FORMAT 
e182 “WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
183 02474 60S: 
184 024742 004737 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
185 024746 012760 000001 MOV ,RMMR1(RO) :LOAD RMMR1 
186 024754 012760 000014 MOV »RMERI(RO) LOAD RMER1 
187 0 4768 012760 2 MOV =RMERG (RO) *LOAD RMER 
188 02477 919260 2 MOV R2.RMER2(RO)  :LOAD RMER 
189 024774 013760 001444 900032 MOV RMOFO,RMOF(RO) LOAD RMOF 
190 025002 016037 1 00114 MOV RMDS(RO),SBDDAT :STORE RMDS AT SBDDAT 
191 025010 042737 137777 001142 BIC #°CERR, SBDDAT 
198 025016 012737 001140 MOV #ERR, SGDDAT :SETUP EXPECTED VALUE FOR COMP ERROR 
193 025024 032702 00152 BIT AXNUER2 ,R2 
194 025030 00140 BEQ 65$ ;BRANCH IF TEST BIT IS A USED BIT 
195 025032 0030 001140 CLR SGDDAT [TEST BIT IS NOT USED - ERR SHOULD BE 0 
3196 025036 023737 001140 001142 65$: CMP SGDDAT,SBDDAT 
3197 025044 001405 BEQ 70$ :BRANCH IF COMP ERROR IS OK 
198 025046 005037 001174 CLR $TMPO [SAVE RMER1 TEST PATTERN 
199 025052 010237 001176 MOV R2,$TMP1 [SAVE RMER2 TEST PATTERN 
3200 025056 104145 EMT 145 
2202 *ADVANCE THE TEST PATTERN FOR RMER2 
2203 025060 70$: 
2204 025060 00630 ASL R2 
2205 025062 00132 BNE 60$ sCONTINUE IF TEST NOT DONE 
2206 025064 80S: 
208 33 RERAARAARAAAERAERAERAEAEEEERERERERERARAREREREREEEAAAERERERAREREKEE 
S*TEST 43 WRITE GO TEST 
© RRAAAAEAAAAAAAEAAAEEAAAEEEEERAERAAEREERERAAAAEEERERERAERREREARRAEEEEEE 
025064 1S143: 
025064 900004 SCOPE :SCOPE CALL 
02507 oie 06 001100 MOV #STACK sP sLOAD THE STACK POINTER 
025074 013700 001276 MOV SBASE ,R ‘RO = UNIBUS ADDRESS 
025100 013701 0014 MOV TSTQUE ,R1 ?R1 = POINTER TO DEVICE 
ne 025104 012737 000043 001226 MOV #43,STESIN +;SET TEST NUMBER IN APi MAIL BOX 
210 025112 010037 001136 MOV RQ. SBDADR :COPY RMCS1 ADDRESS 
e211 025116 005002 CLR R S INITIALIZE FUNCTION CODE 
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000002 
000076 


BIT DDAT 

BNE sBRANCH IF GO IS SET 
:REPORT THE ERROR=CANT SET GO WITH THIS FUNCTION CODE 

BIC #°CENCMSK, 

MOV R3,$GDDAT ;SAVE FUNCTION CODE 

EMT 146 

BR 30$ 


igtem THE MASSBUS, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK 
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JSR PC, CNTCLR 760 CLEAR EAR CONTROLLER 
MOV #DAD , RMMR' (RO) LOAD RMMR 

MOV #DMD ' DBE EN:AUR, RMAR1 (RO) :LOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMERT 

MOV #O.RMER2(RO)  :LOAD RMER2 


a rs ie CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 


BIS #0 R3 
SO RncS1(R 


{RERAAARAAERARRARRAREEERERERERRRRERERERERRERAERERERRRRERRERRRERERE 


BRANCH MULTIPLEXOR TEST 


© RERRERERERRREERAEEREREREREREREREEAEEREAEAEREEEAEREREREEREREREREREK 


MOV RO) 
MOV Ras] (RO) SBDDAT 


SETUP FUNCTION CODE 
RMCS1 


sADVANCE R2 TO THE NEXT FUNCTION CODE 


;LOAD 


zSTORE RMCS1 AT SBDDAT 


sEND OF TEST 


sSCOPE CALL 


3RO = 


3R1_= POINTER TO DEVICE 
TN 72SET TEST NUMBER IN APT MAIL BOX 


sCOPY REGISTER ADDRESS 
INITIALIZE TABLE POINTER 


SBDADR 


50$ 
ADD #2,R2 
CMP #ILF76,R2 
BHIS 10S 

30$: 

TSTEST 44 

18144: 
SCOP 
NOP 
MOV #STACK, SP 
MOV 
MOV TSTQUE ,R 
MOV ert 
MOV RO. $B SBDADR 
ADD 
MOV wos ke 

10$ 


MOV #DMD: DIDBEN AUR, 
MOV oe 
MOV RAERZ 


ame TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN 
sSTORE RMMR2 AT SBDDAT 


THE ~~ a 


MMR1 (RO) 
1(RO) 


sLOAD THE STACK POINTER 
DRESS 


UNIBUS AD 


:CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE 
" «JSR PC, CNTCLR, 360 CLEAR CONTROLLER 


LOAD RMMR 
pT (RO) *LOAD RMMR1 
sLOAD RMER1 


(RO) LOAD RMER2 


S INITIALIZED. 


) ,SBDDAT 


ae 


SEQ 0140 


“om 


381 0 5 
61 02535 
535 


3 6 
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2270 02537 
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$558 025400 
273 025404 
$sre 025410 
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BRANCH MULTIPLEXOR TEST 


L 11 


SEQ 0141 
001142 BIT #TST,SBDDAT 
BNE ;BRANCH IF TEST eI 1S ON 
00114 BIC #*CTST,$BDDAT SETUP FOR ERROR TYPE 
00114 HOV #TST,SGDDAT 
BR 40$ :SKIP REST OF TEST 
:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE, 
i THEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE. 
nove (R2) R3 
BIC aeCENCHSK R3 -: R3=FUNCTION CODE, GO BIT 
MOV R3,RMCS1(RO) § :LOAD RMCS 
MOV Ree TAeO [SAVE R3 FOR ERROR MSG 
MOVB 1482) RS, 3GET CLOCK COUNT IN R3 
= BIC #°C377,R 
000024 “MOV #DMD ! DBEN! MUR ! DBCK RMMRT (RO? ;LOAD RMMR1 
000024 MOV #DMD ! DBEN' MUR, RIPAR I (R 
DEC R MT CROMEAT oer ock COUNT 
BNE 20$ TISSUE CLOCKS TILL ZERO 
:GET THE TEST BIT AND COMPARE I WITH THE TABLE ENTRY 
001142 MOV RMMR2 (RO) , $BDDAT 3STORE RMMR2 AT SBDDAT 
001142 BIC #*CTST, SBDDAT 
001140 MOV 2(R2) , $GDDAT 
001142 CMP SGDDAT , $BDDAT 
BEQ 30$ sBRANCH IF TEST BIT OK 
EMT 150 
BR 40$ :SKIP REST OF TEST 
gMOvE THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE 
"ADD »R2 
TSTB =: 1€R2) 
BMI 40$ ;BRANCH IF DONE TEST 
BR 10$ ;REPEAT TEST 
40$: BR 200$ : JUMP OVER TABLE 
sTABLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS 
-BYTE NOP :MUX ADDRESS=DATA COMMAND 
“WORD 0 :TEST BIT=0 
.BYTE NOP sMUX ADDRESS=UNIT READY 
"BYTE 2 
“WORD 0 :TEST BIT=0 
-BYTE DRVCLR zMUX ADDRESS=F4 
"WORD TST :TEST BIT=1 
.BYTE wCD sMUX ADDRESS=F4 
“BYTE 1 


ao 
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BRANCH MULTIPLEXOR TEST 


238 025536 


321 


wun ww 
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Mrmorororororr 
bya yeh yep ee! 
SHUEAE 
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ww 

ww 
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2343 025570 
2344 025571 
2345 025572 


2347 025574 
2348 025575 
2349 025576 
2350 
2351 025600 
2352 025601 
2353 025602 
354 


2 

2355 025604 
2356 025605 

2357 025606 
358 

2359 025610 

2360 025611 

2361 025612 

2362 025614 
2365 

2364 


000000 


pogeno 

06 00 
700 

3701 00 


200$: 


tSTEST 45 


+> epimmemenantedeaant iat cainate tata enact 


sSCOPE CALL 
LOAD THE STACK POINTER 


78145 
SCOPE 


NOP 
MOV 
MOV 
MOV 


0 
tens 
TST 
WCH 

1 

0 

RIP 


TST 


M11 


sTEST BIT=0 
3MUX ADDRESS=F4 
sTEST BIT=1 
sMUX ADDRESS=F4 
sTEST BIT=0 
3MUX ADDRESS=F4 
sTEST BIT=1 
3MUX ADDRESS=F4 


sTEST B1T=0 


3MUX ADDRESS=F4 
:TEST BIT=1 
3MUX ADDRESS=F4 
sTEST BIT=0 
3MUX ADDRESS=F4 
sTEST BIT=1 
sMUX ADDRESS=F4 
sTEST BIT=0 
3MUX ADDRESS=F4 
sTEST BIT=1 
sMUX ADDRESS=F4 


sTEST BIT=0 


sEND OF TABLE 


sEND OF TEST 


FERRARA ERAEEEARRREREEEREREREERAERERERERERERAREEERRRRRRRRRRERAERERE 


SET/RESET GO TEST 


#STACK,SP 
R 
TSTQUE ,R1 


;RO = UNIBUS A 


S 
ERI = POINTER TO DEVICE 


SEQ 0142 


ao 








fas SET/RESET GO TEST 
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025634 012737 000045 001226 MOV #45,$TESTN z:SET TEST NUMBER IN APT MAIL BOX 
Bs 025642 012702 026256 MOV #200$,R2 yINITIALIZE FUNCTION CODE POINTER 
:CLEAR, THEN SET DIAGNOSTIC MODE. CLEAR COMPOSITE ERROR, SET MEDIUM 
369 "ON LINE AND ENABLE DEBUG CLOCK 
370 025646 10$ 
LA 025646 004737 055156 JSR PC,CNTCLR :G0 CLEAR CONTROLLER 
025652 012760 000001 3 MOV #DAD - RMR (ROD “LOAD RMMR1 
373 025 912760 041001 000024 MOV #DMD ' MU Ri DBE EN,RMMR1(RO) :LOAD RMMR1 
2374 025666 16760 000000 000014 MOV #0, RMER1 (RO zLOAD RMER1 
2373 025674 012760 000000 000062 MOV TOC RRERD (ROD [LOAD RMER2 
33 ; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET 
378 025702 111203 MOVB RS T FUNCTION CODE 
2379 025704 042703 177701 BIC ere 6,R3 SCLEAR UNUSED BITS 
2380 025710 052703 1 BIS OR :SET GO 
2381 025714 010360 000000 V R3.RMCS1(RO) _:LOAD RMCS1 
2382 025720 016037 000000 001142 V RMCS1(RO),SBDDAT ;STORE RMCS1 AT SBDDAT 
2383 025726 032737 1 001142 BIT 60, SBDDAT 
2384 025734 001011 BNE :BRANCH IF GO IS SET 
2385 025736 042737 177700 001142 BIC #°CENCMSK , SBDDAT 
386 025744 010337 001140 MOV R3,$GDDAT sSAVE EXPECTED RESULT 
387 025750 010037 001136 MOV RO, SBDADR [COPY REGISTER ADDRESS 
388 025754 104151 EMT j 
2389 025756 000536 BR 100$ 
2391 “GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO 
2392 025760 50$: 
2393 025760 905037 001140 CLR SGDDAT sEXPECT DRY To BE OFF 
2394 025764 032737 000001 001142 BIT #G0,$BDDAT ZWAS G GO SET? 
2395 025772 001003 BNE ES!! 
2396 028774 012737 000200 001140 as MOV WDRY ,SGDDAT :G0 WAS NOT SET, DRY SHOULD BE 
026002 016037 iF 001142 RMDS (RO) SBDDAT :STORE RMDS AT SBDDAT 
2398 026010 042737 177577 001142 BIC #*CDRY, SBDDA 
399 026016 023737 001140 001142 ¢ SChDAT. SEDDAT 
400 026024 001406 BEQ 40$ :BRANCH IF DRY IS OK 
401 026926 010037 001136 MOV RO, $BDADR SCOPY REGISTER ADDRESS 
402 026032 062737 000012 001136 ADD #RMDS , SBDADR 
403 026040 104152 EMT 152 
40 *STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET 
10S B5e0¢5 116204 i 40s: 1:R2) RG GET NUMBER OF CLOCK CYCLES 
408 03604 18502 fatty ae BIC egos R4 3 
410 026052 012760 141001 4 MOV #DMD ! MUR! DBEN! DBCK RAPIRT (RO) *LOAD RMMR1 
11 135 9 1001 tis? MOV ‘MUR | DBEN sRewint CR OAD RMAR1 
ats 02 160 2000 001148 MOV RMCS1 (RO) , SBD 1 LOORE RMCS1 AT S$BDDAT 
41 0260 737 (1 00114 BIC BACPNCASK:SEDDAT *CLEAR UNUSED BITS 
414 0 6102 01 37 001136 MO RO. $80 :SETUP REGISTER ADDRESS 
413 26106 010337 001140 MOV R Hat :SAVE EXPECTED RESULT 
“19 :DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO 
418 026 5304 DEC RG 
419 BEO 60S 
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46 026266 
288 026267 
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001140 
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000002 
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025646 
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BIT 0, SBDDAT 
BNE 53 


EMT 1 
BR 100$ ;OUT OF SYNC=SKIP TO NEXT 


ise. SHOULD NOW BE RESET AND DRY SHOULD BE SET 
BIT #GO0,$BDDAT iS G0 RESET?? 


318 GO STILL SET?? 
sYES!! 


BIC #60, SGDDAT Sip EXPECTED RESULT 
EMT 154 

ee BR 100$ 
MOV #DRY,SGDDAT EXPECT DRIVE READY TO BE SET 
BIT #60, $BDDAT DID GO RESET? 
BEQ 80$ 

fe CLR SGDDAT £60 is SET- 
MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
BIC #°CDRY, SBDDAT 
MOV RO, SEDADR :COPY REGISTER ADDRESS 
ADD #RMDS DR 
CMP SCDDAT SBDDAT 31S DRIVE READY 0K?? 
BEQ 90$ YES!! 
EMT 152 


ag TO THE NEXT FUNCTION CODE TO BE TESTED-EXIT IF DONE 


ADD #2,R2 sMOVE TABLE POINTER 
TSTB 1(R2) 3END OF TABLE?? 
BMI 100$ sYES!! 


JMP 10$ ZTEST THIS FUNCTION CODE 
100$: BR 300$ 760 TO NEXT TEST 


sTABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 


200$: 
-BYTE ILFO2 ZILLEGAL FUNCTION CODE #2 
.BYTE SEEK :SEEK COMMAND 
YTE 1 
BYTE RECAL ;RECALIBRATE COMMAND 


-BYTE OFFSET sOFFSET COMMAND 
YTE 1 


-BYTE RTC sRETURN TO CENTER LINE COMMAND 
BYTE 1 

~BYTE  ILF24 ZILLEGAL FUNCTION CODE #24 
BYTE 1 

-BYTE ILF26 sILLEGAL FUNCTION CODE #26 
BYTE 1 


a 
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T45 SET/RESET GO TEST 


476 026274 
a7? 26073 
299 02627 
480 856599 
nt 026300 
a8 026301 
484 

485 02630 
486 02630 
487 

488 026304 
489 026505 
stot 

491 026306 
2492 026307 
493 

494 026310 
495 026311 
2496 

497 02631 
498 02631 
499 


2500 026314 
2501 026315 


38 
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MUMIA) 


001 
036 
001 


042 
001 


044 
001 


046 
001 


054 
001 


056 
001 
064 
001 


066 
001 
074 
001 
076 
001 


000 
377 


001226 


-BYTE 
-BYTE 


-BYTE 
TE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
BYTE 
-BYTE 
-BYTE 
-BYTE 


-BYTE 
-BYTE 
TE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


300$: 


1LF34 ILLEGAL FUNCTION CODE #34 
1LF36 ILLEGAL FUNCTION CODE #36 
ILF42 ILLEGAL FUNCTION CODE #42 
ILF 44 ILLEGAL FUNCTION CODE #44 
ILF46 ILLEGAL FUNCTION CODE #46 
1LF54 ILLEGAL FUNCTION CODE #54 
ILF56 ;ILLEGAL FUNCTION CODE #56 
ILF64 ILLEGAL FUNCTION CODE #64 
1LF66 ILLEGAL FUNCTION CODE #66 
1LF74 ILLEGAL FUNCTION CODE #74 
1LF76 ILLEGAL FUNCTION CODE #76 


1 sEND OF TABLE 


sEND OF TEST 


5 RARRRAEEAERERAERRARERERARERERARERARERRRERERERRRERRARRRAARRRERER 


SeTEST 46 


END 1 RESET GO TEST 


© RRAAAERRERERRAERRAEREREEEEEEREEERARAERAERAERERERAERERERERRERREEEEE 


T5146 


i GLEAR MASSBUS, 
10$: 


JSR 
MOV 


sSCOPE CALL 


#STACK,SP ;LOAD THE STACK POINTER 
;RO = UNIBUS ADDRESS 


TSTQUE,R1 *R1 = POINTER TO DEVICE 

#46, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
#100$,R2 SINITIALIZE TABLE POINTER 

RO, $SBDADR [COPY RMCS1 ADDRESS 


THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK 


PC, CNTCLR 360 CLEAR CONTROLLER 
#DMD,RMMR1(RO) :0AD RMMRI 


SEQ 0145 
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001142 


001142 
001140 


D 12 
SEQ 0146 


MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0 .RMERI (R ) ° sLOAD RMER1 
MOV sRMER2(RO) LOAD RMER2 


TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 
MOVB ; 3GET FUNCTION CODE FROM 
BIC ecite 6,R3 STABLE AND SET GO 


BIS 

MOV DAT :SAVE FUNCTION CODE FOR MSG 
MOV R3.RMCS1(RO) LOAD 1 

MOV CS1(RO) . SBDDAT ;STORE RMCS1 AT SBDDAT 
BNE 20$ ;BRANCH IF GO IS SET 

BIC #°CENCMSK, SBDDAT 

EMT 151 

BR 60$ s0UT OF SYNC-SKIP 


iget THE NUMBFR OF CLOCK CYCLES FROM THE TABLE, SAVE EXPECTED STATUS 


1(R2) .R4 :R4=CLOCK COUNT 
BIC #°C377,R4 


gSTeP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES 
“MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
MOV #DMD 'MUR'DBEN,RMMR1(RO) ;:LOAD RMMR1 
MOV RMCS1(RO) ,SBDDAT SSTORE RMCS1 AT SBDDAT 
Bic #*CENCASK  SBDDAT 
BEQ 40$ zBRANCH IF GO SHOULD BE OFF 
BIT #G0,$BDDAT 
BNE 30$ sCONTINUE IF GO IS ON 
EMT 153 
BR 60S sOUT OF SYNC-SKIP 
jVERIFY THAT GO RESET AT END1 
“BIT #GO,$BDDAT :DID GO RESET?? 
BE £ sYES!! 
BIC #60. SGDDAT 
EMT 154 
60$ 
get THE NEXT FUNCTION CODE FROM THE TABLE 


ADD #2,R2 

TSTB. —s-:«-1¢R2) 

BMI 60$ :BRANCH IF END OF TABLE 
BR 10$ STEST THIS FUNCTION CODE 

60$: BR 2008 + JUMP OVER TABLE 

sTABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 


00$ . 
~BYTE RLEASE sRELEASE COMMAND 
BYTE 2 


-BYTE SEARCH 3SEARCH COMMAND 


am 


E1 
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END 1 RESET GO TEST 


580 026613 BYTE 2 
381 


286 8 6614 -BYTE ahaa ZILLEGAL FUNCTON #32 
5 6615 -BYTE 


-BYTE sEND OF TABLE 
BYTE <1 
2008: sEND OF TEST 


FRRAAAAAAARARAAARARREEREREERARARRERRERERERRERERRERERRERRRRERREEES 


tSTEST 47 SET PULSE TEST 
ee eens ie oie ee 
147: 
3SCOPE CALL 
#STACK,SP sLOAD THE STACK POINTER 
;RO = IS ADDRESS 


UNI 
TSTQUE ,R1 in} = POINTER TO DEVICE 
#47, STESTN ;SET TEST NUMBER IN APT MAIL BOX 


RO, $BDADR an REG ADDRESS FOR MSG 
#RMMR1, SBDADR 
#100$,R2 yINITIALIZE TABLE POINTER 
iCLEAR THE MASS BUS, ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS 


Paditee 026664 ; PC,CNTCLR 360 CLEAR CONTROLLER 
598 026670 760 


se 


pp] 


Wo 
No 


o oooo 
—- oe 


- = 
WG 


90 

591 02664 
592 02665 
2334 026660 


AN 


So 
= 
>) 
oS 
™ 


MOV 3k (RO) 
599 026676 #DMD ! DBEN! MUR, 
6704 #0,RMER1 (RO) 3 LOAD R 
1 026712 #0,.RMER2 (RO) LOAD RMER2 
;VERIFY THAT CONTINUE, ““CONT’’ IS RESET AFTER CLEAR 
Stont sheet sSTORE RMMR1 AT SBDDAT 


ee IF CONT WAS CLEARED 
3FOR ERROR MSG 


So 
— 
ae 
AN 


Beene 
oooo 
ROARS 
wm—n 

RO 

BAR 


ee ed ed ed ed ed ed ed od 


AUSWN SO VONOAULSUIN—O 


T THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1 
mMOVB = (R2) ,R3 
BIS #G0,R 
BIC #*CFNCMSK,R3  - ; R3=FUNCTION CODE AND GO 
MOV R3.Racsi Ch ) LOAD RMCS1 
MOV MPO SSAVE FUNCTION CODE FOR MSG 
:GET THE CLOCK COUNT FROM THE TABLE 
MOVB (Re) ,R 
BIC ac 77,R3 


7GET THE BIT STREAM FOR CONTINUE FROM THE TABLE 
MOV (R2) ,R4 


zSTEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS 


GE 
20S: 
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—0o 
BN 
8 

N 
a8 
es 
x 


bt 
CSOSSSSOSSOSSS v 

ees 

o 

SN 


30$: 
4 #DMD 1 DREN! MUR! DBCK RaR (RO) *LOAD RMMR1 
4 DBEN!RUR RM RAAT (R 
: MOV aoe (RO) 2 $8 1 SPORE RMMR1 AT SBDDAT 


#*CCONT, 
$GD 3GENERATE EXPECTED CONTINUE 
1" Naat 


S238 


PeFSe 


#CONT ,SGDDAT 
SGDDAT , SBDDAT 
50s ;BRANCH IF CONTINUE IS OK 
70$ sSKIP 


mtu CLOCK COUNT AND SHIFT BIT STREAM 


E58 


oo 
anos 
a3 


sBRANCH_IF CLOCK ald ot tes 
[SHIFT TO NEXT CONTINUE BIT 
STEST NEXT CLOCK CYCLE 


— TABLE POINTER-EXIT IF DONE 


“ 
: ra 
ue 


Mr 


NNN 


ADD #4,R2 
TSTB. =: 1¢R2) 
BMI 70$ zEXIT IF CLOCK COUNT NEGATIVE 
BR 10$ [CONTINUE TEST 
70$: BR 200$ : JUMP OVER TABLE 
iTABLE OF FUNCTION CODES, CLOCK COUNTS AND CONTINUE BITS FOR TEST 
NOP zNOP COMMAND 
4 :4 CLOCKS 
“80000 = CONT INUE=0000 
LFO2 ZILLEGAL FUNCTION 2 
“B00 
EEK :SEEK COMMAND 
“B00 
RECAL :RECALIBRATE COMMAND 
“B00 
DRVCLR :DRIVE CLEAR COMMAND 
“B01 
RLEASE ZRELEASE COMMAND 
*B000 
714 14 FSET ZOFFSET COMMAND 
its 2 EY geese 
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147 SET PULSE TEST 
2684 027150 000000 «WORD B00 
.BYTE RTC ;RETURN TO CENTER COMMAND 
“BYTE 2 
“WORD “B00 
-BYTE RIP ;READ IN PRESET COMMAND 
“WORD 81110 
-BYTE PAKACK PACK ACKNOWLEDGE 
“WORD 81110 
.BYTE ILF24 ZILLEGAL FUNCTION 24 
“BYTE 
“WORD “B00 
270e 0 02717 026 <BYTE ILF26 SILLEGAL FUNCTION 26 
717 002 “BYTE 
706 8 7174 000000 “WORD “B00 
re 0 217 030 -BYTE SEARCH SEARCH COMMAND 
707 027 003 “BYTE 
708 057200 000000 “WORD *8000 
710 02720 032 .BYTE ILF32 yILLEGAL FUNCTION 32 
711 02720 003 “BYTE 
21 027204 000000 “WORD 8000 
2714 027206 034 .BYTE ILF34 ZILLEGAL FUNCTION 34 
2715 027207 002 : “BYTE 
zig 027210 000000 “WORD “B00 
2718 02721 036 -BYTE ILF36 ZILLEGAL FUNCTION 36 
2719 02721 002 “BYTE 
720 027214 000000 “WORD “B00 
$753 027 .BYTE END OF TABLE 
rs wise 9 are oe 
? 4 027220 000000 “WORD 
726 027222 200S: zEND OF TEST 
7. 8 FRRAARAARERAARARARAA ARETE RARER AAERARARAERARARAAAREARAEAARAEREREE 
tSTEST 50 SET/RESET IVC TEST 
© RREAAAAAARAAAAEAAEREREREEAEERAERAEARERERARAARERERARAAEAAEAAERAEEEE 
937835 0000s OSE ane :SCOPE CALL 
0 5 $e ie 0 0011 MOV aSTACK P ;LOAD THE. STACK POINTER 
Bree Siu iis my lt, et 
q = 
o57g38 12737 286 001226 MOV TStOUE sSET TEST NUMBER IN APT MAIL BOX 


$750 027250 010037 001136 MOV RO, SBDADR SETUP REG ADDRESS 





H 12 


ZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-55 SEQ 0150 Ci 
SET/RESET IVC TEST 1 
731 027254 737 000042 001136 ADD #RMER2 , SBDADR 
7 ee ited CLR R2 :R2=FUNCTION CODE 
7 - j INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO. 
7 0 7 64 004757 055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
7 12760 900024 MOV eRAMRI (RO) 
9 7276 0127 1001 4 MOV TMUR!DBEN,RMMR1(RO) ;LOAD RMMA1 
7 ot 7 900014 MOV #0,.RMER1 (RO : 
740 0 7312 0127 MOV #O;RMER2(RO) LOAD RMER2 
741 027 1g0 00114 MOV RMER2 (RO) , SBDDAT SSTORE RMER2 AT SBDDAT 
74 9 6 737. 16/777 «(00114 BIC #°CIVC, SBDDAT 
743 027 14 BEQ 20$ :BRANCH IF IVC IS ZERO 
744 027 005037 001140 CLR SGDDAT 
745 0 104157 EMT 157 
e746 027344 000444 BR 40$ :SKIP REST OF TEST 
2748 sLOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF 
2749 “ADDRESS 0 AND VERIFY IVC STATUS. 
2750 027346 50$: 
2751 027 010203 MOV R2,R3 :SETUP FUNCTION CODE 
2752 027350 052 03 000001 BIS #60, 
2753 027354 010360 000000 MOV ,RMCS1(RO) LOAD RMCS1 
027360 012760 141001 900024 MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO)  ;LOAD RMMR1 
2755 027366 012760 041001 000024 MOV #DMD'MUR'DBEN,RMMRI (RO) ;LOAD 
2756 027374 016037 43 001142 MOV RMER2(RO) , SBDDAT SSTORE RMER2 AT SBDDAT 
2757 02740 042737 9009 00114 BIC #*CIVC,$BDDAT ;SET ACTUAL STATUS 
2758 02741 0162 7 063640 001140 MOV FNCDTB(R2) ,$GDDAT ;SETUP EXPECTED STATUS FROM 
2759 027416 O4e 7? 167777 001140 BIC #°CIVC,$GDDAT ;FUNCTION CODE TABLE 
7 027424 023737 001140 001142 CMP SGDDAT, SBDDAT 
761 027432 00140 BEQ sBRANCH IF IVC IS OK 
027434 010237 001174 MOV R2,$TMPO [SAVE FUNCTION CODE FOR MSG 
376 027440 104160 EMT 160 
2765 “ADVANCE FUNCTION CODE AND REPEAT TEST IF NOT DONE 
2766 02744 — $0s: 
2767 027442 062702 000002 ADD #2 -Re 
2768 02744 022702 000076 CMP #ILF76,R2 
3769 027452 103401 BLO 40$ ;BRANCH IF DONE TEST 
3770 027454 000703 
ore 027456 40S: sEND OF TEST 
2774 {LARA AAAAARARARAARAEARE RARE RAERERERARRERARAERARARAERARAERERAREEED 
S*TEST 51 SET LSC TEST 
© RARER ARAAAERAARARAEREEEEEEEREERARRERAAAKEEAAERAERAEAERAAERARREREREE 
027456 1ST51: 
027456 000004 SCOPE :SCOPE CALL 
037 900240 NOP 
027462 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
0 7466 013700 001276 MOV [RO = UNIBUS ADDRESS 
7472 91 20 14 MOV TSTQUE ,R1 [R1_ = POINTER TO DEVICE 
027476 0127 ie 1 001226 MOV #51, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 


1 

775 J 

776 027504 010037 0011 MOV RO, SBDADR 
arr 027510 010087 oboe 001136 ADD #RMER2 , SBDADR 
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T1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-56 SEQ 0151 


zINITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK, ‘LSC’', IS RESET 
JSR TCLR G0 CLEAR CONTROLLER 


MOV ) . RMMR 
MOV #DMD ! DBEN, RMMR1 (RO) *LOAD RMMR1 
MOV #0,RMER1(RO) LOAD RMERI 


MOV #0.RMER2(RO) LOAD RMER2 

MOV RMER2 (RO) , SBDDAT SSTORE RMER2 AT SBDDAT 
BIC #°CLSC,$BDDAT 

BEQ 10$ :BRANCH IF LSC IS ZERO 

CLR SGDDAT 

EMT 161 


;WITH DEBUG CLOCK ENABLED, SET GO AND WAIT FOR ONE SHOT TO SET 


10$ 
MOV #GO,RMCS1(RO)  ;LOAD RMCS1 
MOV #1,WATCH [SET WATCHDOG TIMER VALUE 
JSR PC acLOck *START THE CLOCK 


20$: TST WATC 
BNE 208 :WAIT FOR WATCH ZERO 
JSR PC, aSTOPCL *STOP THE CLOCK 


sONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET. 
MOV #DMD » 8 1 


LOAD 
mov RMERE (RO) SBDDAT sSTORE RMER2 AT SBDDAT 


#°CLSC,$BDDAT 

BNE ;BRANCH IF LSC SET 

MOV #LSC,.SGDDAT 

EMT 162 
30S: zEND OF TEST 
fF ERRAAAAAAAAAAAAAARARAREAERERERERAAARERERRERAARERERRARARRRERREAEEE 
S*TEST 52 DECODE TEST 
Oo get tenes eee retical nace tii Ss SONNE 
STS2: 

SCOPE :SCOPE CALL 

MOV #STACK sp ;LOAD THE STACK POINTER 

MOV SER [RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 

MOV #52,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
= CLR RMER10 :NO ERROR FIRST TEST 

: JSR PC,100$ INITIALIZE 


sEXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID 
RMER10,RMER1 (RO) SLOAD RMER1 
MOV #PACACK!GO,RMCS1(RO) § :LOAD RMCS1 
rete #3,R3 
MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ;LOAD RMAR1 
MOV #DND | MUR!DBEN. RAP (RO) ;LOAD RMAR1 


10$ zISSUE NEXT CLOCK IF COUNT NOT 0 


J 12 


RNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-57 SEQ 0152 
2 DECODE TEST 
77 16037 1 114 MOV RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
g 7 27 7 900038 oor BIC #°CWV SBODAT 
% 02777 614 BEQ 20 ;BRANCH IF VV IS ZERO 
5 5737 001426 TST RMER1O0 
1527 BEQ 70$ :BRANCH IF VV SHOULD BE SET 
5037 001140 CLR SGDDAT SSETUP ERROR MESSAGE 
a 12 010037 0011 MOV RO, $BDADR 
9 16 7 000012 001136 ADD #RMDS , SBDAD 
8 4 1 183 EMT 163 
831 9 000522 _ BR 80$ SKIP 
$e $305 004737 030276 JSR PC,100$ yINITIALIZE AND SET DIAGNOSTIC MODE 
835 sEXECUTE A READ IN PRESET AND CHECK VOLUME VALID 
38 030034 013760 001426 000014 MOV RMER10,RMER1 (RO) :LOAD RMER1 
837 030042 01 760 000021 000000 MOV #RIP'GO,RMCS1 (RO) [LOAD RMCS1 
2838 030050 012703 000003 MOV #3,R3 :R3=CLOCK COUNT 
2839 030054 30S: 
030054 012760 141001 000024 MOV #DMD!MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
840 0 012760 041001 000024 


DMD | MUR DBEN, RAP (RO) :LOAD RMMR1 


eRe 
oS 
goses 
aus 


B41 03007 
BNE 30S zISSUE NEXT CLOCK IF COUNT NOT ZERO 
030074 01603 900012 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
03010 2737 177677 00114 BIC #°CVV, SBDDAT 
5 030110 001414 BEQ 40$ ;BRANCH IF VOLUME VALID NOT SET 
846 030112 005737 001426 TST RMER10 
B47 030176 001462 BEQ 70$ ;BRANCH IF VOLUME VALID SHOULD BE SET 
2848 030120 005037 001140 CLR SGDDAT [SETUP ERROR MESSAGE 
2849 030124 010037 001136 MOV RO, $BDADR 
2850 030130 062737 000012 001136 ADD #RMDS , SBDADR 
2851 030136 104163 EMT 163 
2852 030140 000455 BR 80$ SKIP 
2853 030142 40S: 
2854 030142 004737 030276 JSR PC, 100$ sINITIALIZE AND SET DIAGNOSTIC MODE 
2856 sEXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED 
2857 030146 013760 001426 000014 MOV RMER10,RMER1 (RO) ZLOAD RMER1 
858 030154 012760 000051 000000 MOV #WCD!GO,RMCS1 (RO) *LOAD RMCS1 
859 030162 012703 000002 sa MOV #2,R3 :R3=CLOCK COUNT 
030166 012760 141001 000024 MOV #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
2861 030174 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) :LOAD RMAR1 
2862 030202 005303 DEC R3 
2863 030204 901570 BNE 50S zISSUE NEXT CLOCK IF COUNT NOT ZERO 
030 01603 900024 001142 MOV RMMR1 (RO), SBDDAT SSTORE RMMR1 AT SBDDAT 
3865 030214 042737 077777 (001142 BIC #°COCC, SBDDAT 
866 030222 001414 BEQ 60$ :BRANCH IF OCCUPIED IS RESET 
2867 030224 003737 001426 TST RMER10 
030, 1415 BEQ 70$ ;BRANCH IF OCCUPIED SHOULD BE SET 
869 030232 005037 001140 CLR SGDDAT *SETUP ERROR MESSAGE 
2870 030 36 010037 001136 MOV RO, $BDADR 
2871 030242 062737 000024 001136 ADD #RMMR1, SBDADR 
3872 930250 104164 EMT 164 
3873 030252 000410 BR 80$ 


2875 ;VOLUME VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE 
2876 030254 608: 
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001426 


SEQ 0153 


TST RMER10 
BNE 80$ 


;BRANCH IF COMP ERROR WAS SET 
; COULD SET VV ¥ oF OCCUPIED-SUSPECT DECODE FLOP NOT SETTING 


gREPEAT TEST WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP 


5DOES NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED. 
: MOV #UNS, »RMER10 sUSE UNSAFE TO SET COMP ERROR 
80$: BR 200 sEND OF TEST 
FRAAAARARARRARARERREEEEEARERARAEAAEEEREREERARRRARRERRRRRERERER EE 
: SUBROUTINE USED DURING TEST 
FRRAAAAAAAERAREREARERERERERAREERAAREAREEEERERRAERERERRREREEREREE 
SUSING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR. 
‘VERIFY THAT VV, ERR, AND OCC ARE ZERO. 
JSR PC, CNTCLR 360 CLEAR CONTROLLER 
MOV #DMD,RMMRI(RO) 3 
MOV DMD 'MUR!DBEN,RMMA1(RO) ;LOAD RMMR1 
MOV #0,RMER1 (RO iL 
MOV #O.RMERZ(RO) §:LOAD RMER2 
CLR SGDDAT [SETUP FOR ERROR MSG 
MOV RO-SEDADR 
ADD #RMDS 
MOV Rn (RO) SBDDAT :STORE RMDS AT SBDDAT 
BIC #°CERR, SBDDAT 
BEG 1108 sBRANCH IF COMP ERROR ZERO 
se BR 140$ :SKIP TEST 
: MOV RMDS(RO) ,SBDDAT sSTORE RMDS AT S$BDDAT 
BEG Os ;BRANCH IF VOLUME VALID ZERO 
ae BR 140$ :SKIP TEST 
"mov RMMR1 (RO), SBDDAT sSTORE RMMR1 AT SBDDAT 
BIC #°COCC, SBDDAT 
BEQ 130$ :BRANCH IF OCCUPIED ZERO 
MOV RO, SBDADR *SETUP ERROR MESSAGE 
ADD #RIMR1, SBDA 
EMT 166 
BR 140$ :SKIP TEST 
3TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION 
NR N_RMCS1 AND VERIFY THAT ILF DOES NOT SET. 
MOV #ILF24,RMCS1(RO) :LOAD RMCS1 
MOV RMER1 (RO) , SBDDAT SSTORE RMER1 AT SBDDAT 
BIC #°CILF ,SBDDAT 
BEQ 1 :BRANCH IF ILF IS ZERO 
MOV RO, $BDADR *SETUP ERROR MESSAGE 


“mo 
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DECODE TEST 
030500 962737 000014 001136 ADD #RMER1, SBDADR 
0 308 104167 EMT 167 
4 030510 012716 030516 140$: MOV #200$, (SP) ;DONT GO BACK TO TEST 
030514 000267 150$: RTS PC ;RETURN TO TEST OR EXIT TEST 
030516 200$: 
FARRAR AAAAAARAARREREAERERERERERRAEERERRERRARRERERERERREREEREREEE 
TeTEST 53 SET/RESET VOLUME VALID TEST 
© RRA EEEEREERAERAAAERAAEAAERAEEEREEEREREREERAERREEEE 
030516 1ST53: 
030516 :SCOPE CALL 
030520 909240 NOP 
030522 012 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
030526 013700 001276 MOV $BASE ,RO [RO = UNIBUS ADDRESS 
030532 913701 0014 MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
030536 012737 000053 001226 MOV #53, S$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
030544 010037 001136 MOV RO, $BDADR sSETUP REGISTER ADDRESS 
30550 062737 000012 001136 ADD #RMDS , SBDADR 
030556 012702 03076 MOV #100$.R2 :R2=TABLE POINTER 
aa {INITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID 
2948 030562 004737 055156 i PC, CNTCLR 360 CLEAR CONTROLLER 
030566 012760 000001 #DMD,RMMRI(RO) ZL 
2950 030574 012760 041001 000024 MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
030602 012760 000000 000014 MOV #0,RMER1(RO) © LOAD RMER1 
¢ 030610 012760 000000 000042 MOV #0.RMER2(RO) — :LOAD RMER2 
030616 016037 000012 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
030624 042737 177677 001142 BIC #°CVV, SBDDAT 
2955 030632 001403 BEQ ;BRANCH IF VOLUME VALID ZERO 
0 005037 001140 CLR SGDDAT 
2957 030640 104135 EMT 135 
“EXECUTE THE FUNCTION CODE IN THE TABLE 
030642 20S: 
030642 111203 MO (R2) RS :GET FUNCTION CODE 
030644 042703 177701 BIC #°CILF76,R3 
030650 052703 000001 BIS : 
030654 010360 000000 MOV R3,RMCS1(RO) ;LOAD RMCS1 
030660 116204 000001 MO 1¢Re) R4 GET CLOCK COUNT 
030664 042704 177400 can BIC #°C377,R4 
030670 012760 141001 000024 "mov #DMD'DBEN'MUR!DBCK,RMMR1(RO) — ;LOAD RMMR1 
2968 030676 012760 041001 000024 MOV #DMD'DBEN'MUR,RMMR1(RO) :LOAD RMAR1 
9 030704 005304 DEC R4 
70 030706 001370 BNE 30$ sISSUE COCKS TIL R4 ZERO 
71 030710 016037 900012 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT SBDDAT 
72 030716 042737 177677 001142 BIC #°CVV,SBDDAT 
030724 001007 BNE 40$ BRANCH IF VOLUME VALID SET 
74 030726 010337 001174 MOV R3,$TMPO *SAve FUNCTION CODE FOR MSG 
75 030732 012737 000100 001140 MOV #VV,SGDDAT 
76 030740 104170 EMT 170 
030742 000406 BR 50$ 
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T/RESET VALID 


;ADVANCE THE TABLE POINTER, EXIT IF DONE 


ADD #2,R2 
TSTB =: 1 (Re) 
BMI 30 sEXIT IF COUNT IS NEGATIVE 
50$: BR 200$ ;JUMP OVER TABLE 
iTABLE OF FUNCTION CODES AND CLOCK COUNTS 
"BYTE RIP ;READ IN PRESET COMMAND 
“BYTE 3 
-BYTE BAKACK :PACK ACKNOWLEDGE COMMAND 
BYTE yEND OF TABLE 
"BYTE =1 
200$: zEND OF TEST 
{RRA EREERERERERERERERERARAERERREERERERRRERRERRERRERRRRRRAEE 
TRTEST 54 ILLEGAL FUNCTION TEST 
gpa es eb aa hg RICHY EIN 
TST 
SCOPE zSCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV SE = UNIBUS ADDRESS 
MOV ti R1 Rt = POINTER TO DEVICE 
MOV pec STESTN cReeT TEST NUMBER IN APT MAIL BOX 
joa CLR R2 s INITIALIZE FUNCTION CODE VALUE 
aa PC, SETVV :G0 SET VOLUME VALID 
BR 20$ [BRANCH TO 20$ IF NO ERROR 
BR 50$ :SKIP TEST IF ERROR 
20$: MOV #2,R4 *R4=CLOCK COUNT 
sEXECUTE THE TEST FUNCTION CODE AND VERIFY ILF 
MOV #DMD'MUR'!DBEN,RMMR1(RO) ;LOAD RMMRi 
MOV ;SETUP FUNCTION CODE IN R3 
BIS #60,R3 
“hy MOV R3,RMCS1(RO) :LOAD RMCS1 
"Mov #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
MoV #DMD !MUR!DBEN. SRMMRI(RO) ;LOAD RMMR1 
BNE 30S 
MOV RMERT (RO) SBDDAT >STORE RMER1 AT SBDDAT 
BIC SBDDAT ETUP ACTUAL ILF STAT 
MOV Fyepietne) seppat® :GET EXPECTED ILF STATUS 
BIC #°CILF ,SGDDAT 
CMP SGDDAT. “SSbDAT 


SEQ 0155 


: 
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T ILLEGAL FUNCTION TEST 
3 311 1410 BEQ 40$ :BRANCH IF ILF IS OK 
11 1 001136 MOV RO, SBDADR SSETUP FOR ERROR MSG 
% 03114 737 14 001136 ADD #RMER1, SBDADR 
25 031150 010237 001174 MOV 
3 031154 104171 EMT 171 
8 “ADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST 
23 031156 40$: 
031156 062702 000002 ADD #2,R2 
30 1 O31 162 022702 000076 CMP #ILF76,R2 
031166 103401 - BLO 50$ 
303 031170 000713 BR 10$ 
3034 0311 50S: sEND OF TEST 
3036 23 RERRAEAAREAEEEEEEERAERREEREERERAERAREEEREEEEEERAEREREEERERREREREEKE 
SeTEST 55 OCCUPIED TEST 
© RARER RAERAERAREREEERERARREERAEEEREEREREEERERERARRAAEEEEAERE 
031172 TS155: 
031172 900004 SCOPE :SCOPE CALL 
031174 000240 NOP 
031176 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
031202 013700 001276 MOV [RO = UNIBUS ADDRESS 
031608 013701 001466 ! MOV TSTQUE R1 :R1 = POINTER TO DEVICE 
ae 031212 012737 000055 001226 MOV #55,STESIN *;SET TEST NUMBER IN APT MAIL BOX 
3038 031220 005002 CLR R2 sINITIALIZE FUNCTION CODE 
3040 -GET THE DEVICE READY 
3041 031222 10$: 
3042 031222 004737 054732 JSR PC, SETVV G0 SET VOLUME VALID 
031226 000402 BR 208 *BRANCH TO 20$ IF NO ERROR 
031230 104000 EMT 
3043 031232 000464 BR 50$ 
3048 *ENABLE DEBUG CLOCK AND LOAD THE FUNCTION CODE 
3046 031234 50S: 
7 031234 0127, 041001 000024 MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
031242 01 20 MOV R [ASSEMBLE FUNCTION CODE AND 
9 31 44 052703 000001 BIS #0 R3 : “GO N R3 
30 031250 010360 900000 MOV ,RMCS1(RO) ; LOAD RMCS1 
31 031254 012704 2 MOV #2,R4 sR4=CLOCK COUNT 
33 es STEP THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE 
55 O31 60 012760 141001 000024 “mov #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
56 031 $6 12760 041001 000024 MOV #DMD 'MUR'DBEN,RMMRI(RO) :LOAD RMAR1 
57 O31 4 304 DEC RG 
58 31276 001370 BNE 30S sISSUE NEXT CLOCK TIL R4 ZERO 
:VERIFY OCCUPIED STATUS 
1 031 1 37 900024 114 MOV RMMR1.(RO) ,SBDDAT :STORE RMMR1 AT SBDDAT 
31 7? 077777 00114 BIC #°COCC, SBODAT 
131 37 00114 CLR $GDDAT sGENERATE OCC FROM AOE 
i 0 1088 1 063640 ei #AOE , FNCDTB(R2) 
31 12737 100000 001140 MOV #OCC.SGDDAT 
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155 OCCUPIED TEST 
3067 031336 023737 001140 001142 35$: CMP SGDDAT, SBDDAT 
1344 0014 J BEQ 40$ sBRANCH IF OCC IS OK 
1 ; oi 2 1174 MOV R »STMPO i SAVE FUNCTION CODE 
70 031352 010037 001136 MOV SBDADR REGISTER ADDRESS 
71 9 1356 7 24 001136 ADD APR SBDADR 
307 31 104173 EMT 
3073 031366 000406 BR He 
3079 “ADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE 
06 031370 40$: i 
3077 031370 962702 000002 ADD #2 Re 
3078 031374 022702 000076 CMP MILF 76,R2 
3079 031 103401 BLO 50$ sEXIT IF DONE 
80 031402 000707 BR 10$ 
308 031404 50S: ZEND OF TEST 
3084 FRRAAARAAARERAERRARRRREEEEEEREREARRERRRRERRERERERERERRERRERRREREE 
tRTEST 56 READ IN PRESET TEST 
eqn git oe rIEA Cor REE NBER CERN RER ete 
T a 
SCOPE :SCOPE CALL 
001100 MOV #STACK SP sLOAD THE STACK POINTER 
001276 MOV [RO = UNIBUS ADDRES 
001466 MOV Teraue R1 *R1 = POINTER TO DEVICE 
000056 001226 MOV #56,STESTN *:SET TEST NUMBER IN APT MAIL BOX 
:CLEAR AND ENABLE DEBUG CLOCK - LEAVE VOLUME VALID RESET 
055156 JSR PC, CNTCLR 360 CLEAR CONTROLLER 
000001 000024 HOV #0MD ;RMPRT (ROD LOAD RMMR 
041001 000024 MOV #DMD 'ML: !DBEN, RMR (ROD *LOAD RMMR1 
000000 000014 MOV #O.RMERI(RO)  sLOAD RMERT 
000000 000042 MOV #O.RMER2(RO) LOAD RMER 5 
sLOAD ALL ONES IN RMDA, RMDC AND RMOF 
177777 000006 MOV #-1,RMDA(RO) | :LOAD RMDA 
177777 000034 MOV #-1.RMDC(RO)  :LOAD RMDC 
177777 000032 MOV #~-1.RMOF(RO) § : LOAD RMOF 
177777 000032 MOV #~1.RMOF(RO) | :LOAD RMOF AGAIN TO SET SSEI 
;LOAD READ IN PRESET CCMMAND AND STEP THE CLOCK TILL SET PULSE 
000021 000000 MOV #RIP!GO,RMCS1 (RO) OAD RMC 
000003 A MOV #3,R2 :R2=CLOCK COUNT 
141001 000024 “mov #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
041001 000024 MOY #DMD MUR! DBEN, “RMMRI(RO) :LOAD RMAR1 
BNE 10$ sISSUE 3 CLOCKS 
sSEE IF RMDA OR RMDC OR RMOF IS ZERO 
000006 mov RMDACR RO) .R2 sSTORE RMDA AT R2 
BEQ 20$ BRANCH. F RMDA IS ZERO 
000034 MOV RMDC (RO) ,R2 s STORE Ripe a ATR 
176000 BIC AXNUDC RE 
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READ IN PRESET TEST 


C 13 


SEQ 0158 


BEQ 20$ : BRANCH IF RMDC IS ZERO 
MOV RMOF (RO) ,R2 zSTORE RMOF AT R 

BIC #XNUOF ,R2 sCLEAR UNUSED BITS 

BEG ‘BRANCH IF RMOF IS ZERO 


sREAD IN PRESET — DIDNT CLEAR ANY OF THE 3 REGISTERS 
EMT 174 


20S: sEND OF TEST 


© RAEREAAAARAERERAERAEREEEEEEEEERAERRERERERERERREREEEEEEERRKEREREREEE 


S*TEST 57 RIP/RMOF TEST 


em ee ean rr ee 
ST5S7: 
SCOPE :SCOPE CALL 
MOV WSTACK,SP :LOAD THE STACK POINTER 
MOV SBASE ,RO = UNI RES 


sRO = DRESS 
3R1_= POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


sSETUP REGISTER ADDRESS AND 
sEXPECTED RMOF 


S 
MOV TSTQUE,R1 
MOV #57, $TESTN 


MOV RO, $BDADR 
ADD #RMOF , SBDADR 
CLR SGDDAT 


cea: || AND SET BITS IN RMOF 


PC,CNTCLR 360 CLEAR CONTROLLER 


MOV ADMD -RMMR1(RO) :LOAD RMMR 
MOV #DMD'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0, RMER1 (RO) sLOAD RMER1 


sb 

zLOAD RMER2 

3LOAD RMOF 

sLOAD RMOF AGAIN TO SET SSEI 
ae Oe IN PRESET IN DIAGNOSTIC MODE TILL aid PULSE 


#RIP!GO,RMCS1 (RO) LOAD 
we MOV #3,R2 :R2=CLOCK COUNT 
“MOV #DMD!MUR!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
mov DMD | MUR !DBEN, RAP (RO) ;LOAD RMAR1 
BNE 10$ ZISSUE 3 CLOCKS 
sVERIFY THAT RMOF IS ZERO 
MOV RMOF (RO), SBDDAT ;STORE RMOF AT SBDDAT 
BIC #XNUOF , SBDDAT 
BEQ 03 ;BRANCH IF RMOF IS ZERO 
EMT 5 
20S: ZEND OF TEST 
fEAAARAAAAAAAAAAAAAAAREEAAAAAAERAERAAARERERAEERARERERARERARERRRREREE 
S*TEST 60 RMDA/RMDC/RIP TEST 


© RRRAAARAAARARARAAAAAAEEEEEAERARAAAAAARAREARAERERAAEAEEAEEEEREREEEE 


1$160: 
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T60 RMDA/RMDC/RIP TEST 
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SEQ 0159 
SCOPE :SCOPE CALL 
MOV #STACK sp i LOAD THE STACK POINTER 
MOV S$BASE,R [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 ?R1 = POINTER TO DEVICE 
MOV #60, STESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR SGDDAT 


;CLEAR, ENABLE DEBUG CLOCK, THEN PRESET RMDA AND RMDC 
JSR PC, CNTCL 360 CLEAR CONTROLLER 
#0MD .RMMRI(RO) : 


MOV ‘ OAD RMMR1 
MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMRI 
V (RO) © ;LOAD RMER1 


MO »RMERT ZLOAD RME 

MOV RMER1(RO) § ;LOAD RMERT 
MOV #-1,RMDA(RO) 3s: RMDA 
MOV #-1.RMDC(P9) =: LOAD RMDC 


sEXECUTE READ IN PRESET TILL SET PULSE 
MOV #RIP!GO,RMCS1(RO) 


3LOAD RMCS1 
MOV #3,R2 


10$: 
MOV ADMD! MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
moy #DMD iMUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
BNE "bs zISSUE 3 CLOCKS 
sVERIFY RMDA IS ZERO 
MOV RMDA(RO) ,SBDDAT sSTORE RMDA AT SBDDAT 
BEQ 20$ ;BRANCH IF RMDA RESET 
MOV RO, SBDADR 
ADD ARMADA, $BD 
EMT 
VERIFY RMDC IS ZERO 
“MOV RMDC(RO),$BDDAT ;STORE RMDC AT SBDDAT 
BIC AXNUDC, SBDDAT 
BEQ BRANCH IF RMDC RESET 
MOV RO, SBDADR 
ADD #RADC, SBDADR 
EMT 302 
30S: ZEND OF TEST 
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S*TEST 61 OFFSET COMMAND TEST 


Oe gsc eggmape ce ~ yee hp OEE RIE RENEE Si Nene 7 
T . 
sco :SCOPE CALL 
MOV #STACK s ;LOAD THE STACK POINTER 
MOV -° $BASE,R *RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #61,$TESTN ?;SET TEST NUMBER IN APT MAIL BOX 
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10$: 
MOV 


RO, SBDADR 
#RADS , SBDADR 
#0M, SGDDAT 


43 " Tv 


40$ 
#0,RMDC (RO) 


3G0 SET VOLUME VALID 
BRANCH TO 10$ IF NO ERROR 
3LOAD RMDC 


3 ENABLE — CLOCK AND EXECUTE OFFSET COMMAND 
#DMD ! MUR ! DBE 


MOV 
MOV 
MOV 
DEC 
BNE 


208: 


#OFFSET!GO,RMCS1 (RO) 
#2,R2 


#DMD ! MUR !DBEN! DBCK 
ADMD !MUR!DBEN.RMMRT (RO) ;LOAD 


36s 


VERIFY THAT OFFSET MODE IS SET 
MOV RMDS(RO), 1 ae sSTORE RMDS AT SBDDAT 


BIC 
BNE 
EMT 
40S: 

tSTEST 62 


78162 


-SET OFFSET 
10S: 
MOV 
JSR 
BR 
EMT 


#°COM, SBDDA 
40$ 
200 


#STACK, SP 


TSTQUE ,R 
bee STeStN 


RO, S8DADR 
#RADS , SBDADR 


PC,SETVV 
108 


60$ 


' = TOM 


RMARI(RO) ;LOAD RMARI 
3LOAD RMCS1 
sR2=CLOCK COUNT 


RMR 1 y+ 


;LOAD RMARI 
OAD RMMR1 


sISSUE 2 CLOCKS 


sBRANCH IF OM IS SET 


sEND OF TEST 
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RETURN TO CENTER TEST 


sSCOPE CALL 


3LOAD THE STACK POINTER 
7RO = UNIBUS ADDRESS 
3R1_= POINTER TO DEVICE 


73SET TEST NUMBER IN APT MAIL BOX 


360 SET VOLUME VALID 
ZBRANCH TO 10$ IF NO ERROR 


DIRECTION AND OFFSET MODE 
#OF D ,RMOF (RO) 


G0 SET OFF 
BRANCH TO 


20 


T MODE 
$ IF NO ERROR 
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RETURN TO CENTER TEST 
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SEQ 0161 


ENABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND 
ec SETVV :G0 SET VOLUME VALID 
BR 30$ *BRANCH TO 20$ IF NO ERROR 
308 ” = 
“MOV #DMD'MUR'DBEN,RMMR1(RO) ;LOAD RMMRI 
MOV #RTC'GO,RMCS1 (RO) [LOAD RMCS1 
atte MOV #2,R2 
“mov #DMD'MUR'DBEN!DBCK,RMMR1(RO)  ;LOAD RMMR1 
mOy DMD | MUR DBEN. RAP (RO) :LOAD RMMAR1 
BNE 40$ zISSUE 2 CLOCKS 
SVERIFY THAT OFFSET MODE IS RESET 
MOV RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
BIC #°COM, SBDDAT 
BEQ $ ;BRANCH IF OFFSET MODE RESET 
CLR SGDDAT 
EMT 201 
VERIFY THAT OFFSET DIRECTION IS RESET 
"mov RMOF (RO), SBDDAT ;STORE RMOF AT S$8DDAT 
BIC #°COFD, SBDDAT 
BEO 60$ ;BRANCH IF OFD IS RESET 
CLR SGDDAT 
MOV RO, $BDADR 
ADD 2 
EMT 202 
60S: zEND OF TEST 
f EARAAAAAAARAAAAAARERERERAEAAAARAARERAARERERERRARERERERERAEREREERS 
SeTEST 63 RMDC CLEAR OFFSET TEST 
OO gs ecient digerancr er cle ap gat guna ae egy pe 
T63: 
SCOPE ZSCOPE CALL 
MOV #STACK, SP sLOAD THE STACK POINTER 
MOV [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
MOV #63,STESIN +:SET TEST NUMBER IN APT MAIL BOX 
MOV RO, SBDADR 
ADD #RADS , SBDADR 
JSR Pc SETVV 360 SET VOLUME VALID 
BR 108 SBRANCH TO 10$ IF NO ERROR 
ele BR 40$ :SKIP REST OF TEST 
wah PC SETOM 360 SET OFFSET MODE 
208 BRANCH TO 20$ IF NO ERROR 
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63 RMDC CLEAR OFFSET TEST 
73 
4 eae WRITE THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO 
7 127 MOV ZLOAD RMDC 
is $74 o} i Ooo0t2 O01 a ROY Rr s(n) 38 SBDDAT *STORE RMDS AT SBDDAT 
% 71 001403 BEQ fos 
80 032712 005 001140 CLR seppat 
81 032716 104203 EMT 203 
83 032720 40S: zEND OF TEST 
85 FRRRARERARAAARARERRRREREREREARAARERRARAREEAEERRERERRRERRRERERERE 
TSTEST 64 EBL CLEAR OFFSET TEST 
eet erm enh ore ee ee ae 
T64: 
SCOPE ZSCOPE CALL 
MOV ESTACK sP sLOAD THE STACK POINTER 
MOV tRO = UNIBUS ADDRESS 
MOV settee *R1 = POINTER TO DEVICE 
MOV yee otesty +:SET TEST NUMBER IN APT MAIL BOX 
MOV LSTRK,RMDAO SET LAST TRACK AND 
mMOVB #30.,RMDAO ‘LAST SECT 
MOV RO, R SETUP FE GISTER FOR ERROR MSG 
ADD #RADS , SBDADR 
JSR PC, SETVV 360 SET VOLUME VALID 
BR 10$ *BRANCH TO 10$ IF NO ERROR 
oe BR 308 :SKIP REST OF TEST IF ERROR 
a ae PC, SETOM 360 SET OFFSET MODE 
BR 208 *BRANCH TO 20$ IF NO ERROR 
20S: 
mov #FMT16,RMOF (RO) 
MOV RMDAO,RMDA(RO) ;LOAD RMDA 
3FORCE END OF BLOCK AND VERIFY THAT OFFSET MODE IS CLEARED 
MOV ADMD! MUR! DBEN, RAMA 1 (RO) ;LOAD RMAR1 
MOV #G60,RMCS1(R OAD 
MOV ADMD ‘PUR DBEN  DEBL ROR (RO) sLOAD RMAR1 
MOV som iDBEN,RMMRI (RO) ;LOAD 
MOV RMDS (RO) , $BD Seats s STORE nibs AT $8DDAT 
BIC econ. sBbDAT 
BEQ sBRANCH IF OFFSET IS ZERO 
CLR ; DDAT 
EMT 
30S: ZEND OF TEST 
FRAAAAAAAAAAAAAARAAAEREEEEAAROTAAAEAAAAAAERAERAAAREEAERARERS EES 
tSTEST 65 RUN AND GO TEST 
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165 RUN AND GO TEST Ti 
1 TST65: 
1 SCOPE :SCOPE CALL 
11 40 NOP 
112 01 11 MOV #STACK SP LOAD THE STACK POINTER 
116 0137 1276 MOV $BASE sRO = UNIBUS s 
1 13701 0014 MOV TSTOuE R1 ‘R1 = POINTER TO DEVICE 
“ 1 12737 000065 001226 MOV #65, STESTN +;SET TEST NUMBER IN APT MAIL BOX 
14 033134 005037 001140 CLR DAT yINITIALIZE EXPECTED RESULT 
1 BEsNee S838 oor tot BF saan serosa 
Hi 033146 8.998 000024 001136 ADD #RABR 1, SBD 
8 wie iCLEAR THE MASSBUS AND ENABLE DEBUG CLOCK 
1 033154 004737 055156 > PC,CNTCLR 360 CLEAR CONTROLLER 
2 160 012760 000001 000024 MOV #DAD-RAART(RO) LOAD RAMRI 
166 0127 0001 9000 4 MOV #DMD ' DBEN, RMMR1 (RO) *LOAD RMMR1 
4 9 174 0127 14 MOV #0,RMERI(RO) LOAD RMERI 
36 2 012760 000042 MOV #0.RMER2(RO) LOAD RMER2 
sLOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP 
8 033210 91020 MOV R2.R sASSEMBLE FUNCTION CODE AND GO 
329 03321 O52 9 000001 BIS R3 
330 033216 012737 000200 001534 #200, WATCH :SET WATCHDOG TIMER VALUE 
03 “4 004777 146 JSR Pc -acLOck SSTART THE CLOCK 
3331 033230 010360 on MOV *RMCS1(RO) LOAD RMCS1 
033234 016037 900024 00114 “mov RMMR1 (RO), SBDDAT ;STORE RMMR1 AT SBDDAT 
0 42 737 137777 00114 BIC #°CRG, SBDDAT 
9 50 023737 001140 00114 CMP SGDDAT , SBDDAT 
3 001411 BEQ 208 *BRANCH IF RUN AND GO FLOP OK 
03 005737 001534 st WATCH sTAKE ANOTHER SAMPLE IF CLOCK NOT ZERO 
338 033266 OOu79? 146246 JSR PC, aSTOPCL :STOP THE CLOCK 
39 03327 010257 001174 MOV R2.$TMPO ;SAVE FUNCTION CODE FOR MSG 
033276 104205 EMT 205 
03330 000416 sans BR 40$ :SKIP REST OF 
xs O3330 004777 146232 ty ie PC, @STOPCL :STOP THE CLOCK 
sADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE 
3 306 70 900002 ADD #2,R 
331 022702 00007 CMP #ILF76,R2 
3331 0 BLO ZEXIT IF DONE 
033 920287 000050 CMP R2,AWCD [CHANGE EXPECTED RESULTI IF 
50 033324 103403 BLO [DATA COMMAND 
51 033 6 012737 040000 001140 MOV WRG, SGDDAT 
5 3 707 30$: BR 10$ :REPEAT TEST 
033336 40S: ZEND OF TEST 
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SET IAE TEST 
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000024 


SCOPE :SCOPE CALL 
MOV #STACK a ;LOAD THE STACK POINTER 
MOV RO = UNIBUS AD 
MOV SBASE RO *R1 = POINTER TO DEVICE 
MOV Teer eeIN +;SET TEST NUMBER IN APT MAIL BOX 
a MOV #100$,R2 :R2=TABLE POINTER 
" «JSR PC, SETVV 360 SET VOLUME VALID 
BR 20$ SBRANCH TO 20$ IF NO ERROR 
BR 50$ :SKIP REST OF TEST 
iL OAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18 
“Mov a1 -RMDACRO? ZLOAD RMDA 
MOV #~1.RMDC(RO) LOAD RMDC 
MOV #0, RROF LR (RO) [LOAD RMOF 
;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCSI WITH GO ON 
MOV #DMD!MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
MO (R2)R 
BIC #*CILF76,R3 
BIS #60,R 
MOV R3,RMCS1(RO) LOAD RMCS1 
MOVB 1¢Re) :GET CLOCK COUNT 
BIC #°C377,R4 
gCLOCK THE COMMAND SEQUENCER 
MOV #DMD'MUR'!DBEN!DBCK,RMMR1(RO)  ; LOAD RMMR1 
MOV #DMD'MUR'DBEN,RMMR1(RO) ;LOAD RMAR1 
DEC R4 
BNE 30$ 
:SEE IF IAE HAS SET 
MOV RMER1(RO).R4 § ;STORE RMER1 AT R4 
BIC #°CIAE,R4 
BNE 50$ sBRANCH IF IAE SET 
ZIAE DID NOT SET = TRV ANOTHER FUNCTION CODE 
ADD #2,R 
TSTB =: 1(R2) 
BMI 40$ :BRANCH IF ALL CODES TRIED 
BR 10$ 
jSANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE 
"EMT 206 
50$: BR 200$ ;JUMP OVER TABLE 
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SEARCH 
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4 pOSLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST 


3SEARCH COMMAND 


SEQ 0164 
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T66 SET IAE TEST 


88 0335 .BYTE SEEK ySEEK COMMAND 
oO 888 SHE 
10 05 536 062 .BYTE WH ;WRITE HEADER COMMAND 
i 0335 00 “BYTE 2 
ig 033540 052 .BYTE wCH :WRITE CHECK HEADER COMMAND 
14 033541 00 , “BYTE 2 
6 03354 072 .BYTE RH yREAD HEADER COMMAND 
7 03354 002 "BYTE 2 
19 033544 060 .BYTE wD :WRITE DATA COMMAND 
033545 002 "BYTE 2 
g 03354 050 .BYTE wCD sWRITE CHECK DATA COMMAND 
33 03354 002 “BYTE 2 
3425 033550 070 .BYTE RD :READ DATA COMMAND 
3426 033551 002 “BYTE 2 
355 03355 000 BYTE sEND OF TABLE 
3429 03355 377 “BYTE -1 
3431 033554 200$: ZEND OF TEST 
3038 $2 RERRAERAAAAEERAAERAERERERERERARREREREREREREEEEREERAERERERREEKEERE 
TeTEST 67 SEARCH, SEEK, READ, WRITE TEST 
© REAR AAEAEAAEARERAAAEAEEEAEREREEEAERARAEAAAAAEAREREREARERERERRAREAEEEEEK 
033554 TS167: 
033554 000004 SCOPE :SCOPE CALL 
033556 000240 NOP 
60 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
033564 013700 001276 MOV SE.R +RO = UNIBUS ADDRESS 
033570 013701 001466 MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
— 033574 012737 000067 001226 MOV #67, S$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
3435 033602 005002 CLR R2 sINITIALIZE FUNCTION CODE 
3436 033604 10S: 
3437 033604 004737 054732 JSR PC, SETVV :G0 SET VOLUME VALID 
033610 000403 BR 20$ “BRANCH TO 20$ IF NO ERROR 
033612 104 EMT 
3438 033614 000472 BR 50$ 
3440 SLOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT 
41 “TO 18 BIT MODE 
42 033616 30S: 
43 033616 012760 177777 000006 MOV #-1,RMDA(RO) LOAD RMDA 
4 033604 012760 177777 000034 MOV #~1-RMDC(RO)  :LOAD RMDC 
45 033632 012760 000000 000032 MOV #0,.RMOF (RO) [LOAD RMOF 
ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS1 WITH GO ON 
48 033640 012760 041001 000024 V #DMD'MUR'DBEN,RMMR1(RO) ;LOAD RMMR 
49 033646 1020 MOV R , SASSEMBLE CODE AND GO 
50 033650 052703 000001 BIS #G0,R3 
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. SEEK, READ, WRITE TEST 


010360 000000 MOV R3,RMCS1(RO) LOAD RMCS1 
sCLOCK THE COMMAND SEQUENCER TO SET PULSE 
012704 000002 ~ MOV #2,R4 
012760 141001 000024 "mov #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
1 760 041001 000024 MOV #DMD!MUR!DBEN, |RMMRI(RO) :LOAD RMMR1 
001370 BNE 30$ 
sVERIFY IAE ACCORDING TO FUNCTION CODE TABLE 
016037 001142 MOV RMER1 (RO), SBDDAT ZSTORE RMER1 AT SBDDAT 
042737 175777 001142 BIC W°CIA ys 
016237 063640 001140 MOV FNCDTBCR2) , OSCDDAT zASSEMBLE EXPECTED IAE 
oes 37 175777 001140 BIC @CIAE, $GDDAT 
023737 001140 001142 CMP S<DDAT. *SBDDAT 
001411 BEQ 40$ ;BRANCH IF IAE OK 
010037 001136 MOV RO, SBDADR [SET UP ERROR MSG 
062737 000014 001136 ADD #RAERI SBDADR 
010237 001174 MOV R2,$TMPO 
104207 EMT Best 
06 BR 50$ :SKIP REST OF TEST 
jADVANCE TO NEXT FUNCTION CODE = EXIT IF DONE 
702 000002 "ADD #2,R2 
023702 000076 CMP ILF76,R2 
103401 BLO 50$ 
000701 BR 
50S: ZEND OF TEST 
FARRAR RERERRERERERERREERERREERERERRERRERRRRERERAERRARRARERR 
tSTEST 70 INVALID TRACK/SECTOR TEST 
2 2 ey guna eee ampe tint ots tenga 
TST 
000004 SCOPE :SCOPE CALL 
000240 NOP 
012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
013700 001276 MOV :RO = UNIBUS ADDRESS 
013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
012737 000070 001226 MOV #70,$TESTN ?;SET TEST NUMBER IN APT MAIL BOX 
013737 001334 001420 MOV LSTRK,RMDAO :LOAD LAST TRACK ADDRESS 
105237 001421 ae INCB = RMDAO+1 SPT UP FIRST INVALID ADDRESS 
004737 054732 i os PC, SETVV 760 SET VOLUME VALID 
900402 BR 208 SBRANCH TO 20$ IF NO ERROR 
00047 BR 100$ sSKIP REST OF TEST 
sib any DESIRED CYLINDER, LOAD INVALID ADDRESS AND SET 
FORMAT 
012760 000000 “ MOV #0,RMDC (RO) SLOAD RMDC 
013760 001420 200006 MOV RMDAO,RMDA(RO) :LOAD RMDA 
012760 000000 00003 MOV #0,RMOF (RO) [LOAD RMOF 
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INVALID TRACK/SECTOR TEST 


sEXECUTE A ener’ COMMAND TO WHERE “SET PULSE"’ IS a 


MOV DMD !MUR!DBEN,RMMR1(RO) ;LOAD 
MOV WSEARCH!GO,RMCS1(RO)  :LOAD RMCS1 
a MOV #2,R3 
"mov #DMD'MUR!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
MOY DMD | MUR iDBEN, RAR (RO) ZLOAD RMMR1 
BNE 30S yISSUE 2 CLOCKS 
SVERIFY IAE IS SET 
MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT SBDDAT 
BIC #°CIAE, SBDDAT 
BNE 40$ ;BRANCH IF IAE IS ON 
MOV MIAE ,SGDDAT SSETUP ERROR MESSAGE 
MOV RO, SBDADR 
ADD #RMER1, SBDADR 
MOV RMDAO, $TMPO 
EMT 0 
BR 100$ 
jADVANCE TO NEXT ENTRY IN TABLE - EXIT IF DONE 
* -TSTB = RMDAO#+1 : TESTING INVALID SECTORS ? 
BEQ 50$ TYES !! 
INCB  —- RMDAO+1 S INCREMENT TRACK ADDRESS 
CMPB § RMDAO+1,4128. :DONE ? 
BLOS 10$ [NO, TEST NEXT TRACK ADDRESS 
MOV #29. ,.RMDAO LOAD LAST SECTOR ADDRESS AND 
50$: INC RMDAO S INCREMENT SECTOR ADDRESS 
CMPB -—s- RMDAO,, #128. [DONE ? 
BLOS  10$ *NO, TEST NEXT SECTOR ADDRESS 
100$: 
3 2 RERRERAAEAERRRAREEAKEEEEEEEEEEKERARERARAEEAEAEEAEEERAEAAEEEERAAAREEKE 
SeTEST 71 INVALID CYLINDER TEST 
gure ace te a Oe re aaa te es En NESE 
TST71: 
SCOPE :SCOPE CALL 
MOV #STACK, SP sLOAD THE STACK POINTER 
MOV R [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 
MOV #71, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
Os MOV #561. ,RMDCO :SET FIRST INVALID CYLINDER 
" ‘JSR PC, SETVV :G0 SET VOLUME VALID 
BR 208 *BRANCH TO 20$ IF NO ERROR 
Re. BR 50$ :SKIP IF ERROR 
“mov RMDCO,RMDC(RO) ;LOAD RMDC 
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560 034442 


IWWIWWWANAIN 

VIVIAN 
oa WAP AES ANA Att ht heb A 
=—SOOONOulwn— 


62 
3563 034444 
3564 034444 
3565 034450 
3566 034456 
3567 034460 
3568 
3569 


3375 034534 
3578 034534 
O3¢3¢ 9 


580 034546 
581 034546 


oe bcscg 
582 034554 


012760 


S2sser2 ssss Sss 
oO =U 3 froror 
2 S ae 
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-oS 
Sc, 
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teh | 
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000000 


041001 


60 000031 
000002 


141001 
041001 


000014 
175777 


001446 


001446 
001446 


000035 


054732 


000006 


000024 
000000 


4h 
000024 


001142 
001142 


001140 


001136 
001174 


002000 


000024 
000032 


; ENABLE —_ CLOCK AND EXECUTE SEARCH COMMAND 
#DMD ! MUR ! DBEN ,RMMR1 (ROD 
#SEARCH!GO, ,RMCS1 (RO) 


30$: 


MOV 


MOV 
MOV 


sVERIFY IAE 


40$ 


50$: 


FRRARAEEEEEEERERERERERERERERERREREEREREREEREERERRRRRRRRERRRRRERE 


INC 
CMP 
BLO 


:ATEST 72 


FERRARA ERERERRERERRREREREEERRERRRREERERREREERERERAEREREREREEEREE 


TST72 


10S: 


15$: 


CLR 
MOV 
MOVB 


#0,RMDA(RO) 
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INVALID CYLINDER TEST 


sLOAD RMDA 


#DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) 


#DMD ! MUR! DBEN,RMMR 


R 
30$ 


IS SET 


#CIAE ,SBDDAT 
fy Foes aad 


E 
RMER1(RO), — 


RO, $BDAD 
#RMER1, SBDADR 
RMDCO,$TMPO 


50$ 


;ADVANCE CYLINDER ADDRESS 


RMDCO 
RMDCO,#1024. 
10$ 

SET AOE TEST 


#STACK, SP 


#3,$TIMES 
#72,$TESIN 


RMOF O 
LSTRK,RMDAO 
#29. ,RMDAO 


PC,SETVV 
15$ 


40$ 


#DMD ! MUR ! DBE 
RMOFO,RMOF (R 


05 


3LOAD RMMR1 
[LOAD RM 


RMCS1 


:LOAD RMMR1 
1(RO) :LOAD RMMR1 


sISSUE 2 CLOCKS 


sSTORE RMER1 AT SBDDAT 


sBRANCH IF IAE IS SET 
SSETUP ERROR MESSAGE 


: INCREMENT CYLINDER ADDRESS 
=NO, TEST AGAIN 


sSCOPE CALL 


LOAD THE STACK POINTER 


RO = 


UNIBU 
3R1 = POINTER TO DEVICE 
3D0_3_ITERATI 

tISeT TEST NUMBER IN APT MAIL BOX 


318 BIT FORMAT MODE 
7SET LAST TRACK AND 


LAST SECTOR 


zENABLE DEBUG CLOCK AND LOAD LAST SECTOR noone ss. MEMORY ADDRESS AND 
WORD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET 


GO SET VOLUME VALID 
;BRANCH TO 15$ IF NO ERROR 


sSKIP TEST IF ERROR 
N,RMMR1(RO) ;LOAD RMAR1 


;LOAD RMOF 


SEQ 0168 


ao 
—mMN 


_—_— 


N 13 


CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-74 SEQ 0169 cr 
T SET AOE TEST Ti1 
583 0 16037 00003 1174 MOV RMOF(RO),STMPO ;STORE RMOF AT S$TMPO 
584 0345 12760 108 34 MOV #560. ,RMOC(RO) LOAD RMDC 
585 034576 0137 14 006 MOV RMDAQ.RADA(RO} [LOAD RMDA 
586 604 012760 1 7000 0000 MOV #-512.,RMWC(RO) :LOAD RMWC 
58 12 012760 104536 000004 MOV #BUF FER, RMBA(RO) sLOAD RMBA 
588 0346 oi 760 000061 000000 MOV #WuD!GO,RMCS1(RO) “LOAD RMCS1 
589 034626 012702 000014 MOV #14,R2 :R2 = CLOCK COUNT 
590 “CLOCK COUNT 2-05 3-04 14-60... 
291 anand ggLOck THE COMMAND SEQUENCER TO GENERATE SET PULSE 
593 034632 012760 141001 000024 mov #DMD'MUR'DBEN!DBCK.RMMR1(RO) — ; LOAD RMMR1 
594 034640 912760 041001 000024 MOV #DMD ‘MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
595 034646 005302 DEC R2 
3596 034650 001370 BNE 20$ ZISSUE 2 CLOCKS 
3598 ;FORCE EBL TO GET TO OVERFLOW ADDRESS 
599 034652 012760 061001 000024 MOV #DMD'MUR'DBEN!DEBL,RMMR1(RO) — ;LOAD RMMR1 
3660 0 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMAI(RO) ;LOAD RMMR1 
3602 ;VERIFY THAT ADDRESS OVERFLOW ERROR IS SET 
3603 034666 016037 000014 001142 MOV RMER1 (RO) , SBDDAT SSTORE RMER1 AT SBDDAT 
3604 034674 042737 176777 001142 BIC #°CAOE , SBDDAT 
3609 034702 001012 BNE 3 sBRANCH IF AOE IS SET 
034704 010037 001136 MOV RO, SBDADR [SETUP ERROR MESSAGE 
3607 034710 062737 000014 001136 ADD #RMER1, SBDAD: 
3608 034716 012737 001000 001140 MOV HAOE , SGDDAT 
3609 034724 104212 EMT 
3610 034726 26 BR 40$ 
3611 034730 30S: sEND OF TEST 
sole 034730 032737 010000 001444 BIT #FEMT16,RMOFO § :DONE 16 BIT FORMAT TEST ? 
13 034736 001007 BNE 35$ TYES !! 
3614 034740 012737 010000 001444 MOV #EMT16,RMOFO §:SET 16 BIT FORMAT MODE AND 
3615 034746 112737 000036 001420 MOVB  #30.,RMDAO SLAST SECTOR 
3616 034754 000667 BR 10$ 
3617 034756 35$: 
3618 034756 032737 001000 001444 BIT #SSEI,RMOFO :DONE 16 BIT TEST W/ SSEI SET ? 
3619 034764 001007 BNE 4 YES !! 
034766 052737 001000 001444 BIS #SSE1,RMOFO [SET SSEI W/ 16 BIT MODE AND 
3621 034774 112737 000037 001420 MOVB #31.,RMDAO [LAST SECTOR 
3622 035002 000654 BR 10$ 
3623 035004 40S: 
3625 s FARRAR ARRERRRERERERERERARAARREREERERERRRRRERERRRRRERARERER 
T*TEST 73 SET RMR TEST 
2s RRA RERERRAREREREERERERAERARAEAKREERERRAAAAERAREEERAEERREEE 
035004 S173: 
035004 000004 SCOPE :SCOPE CALL 
035006 900240 NOP 
035010 012706 0011 MOV #STACK,SP :LOAD THE STACK POINTER 
Oa20Ne Blsooy BolLeE ey tee CAL © SOINTER TO BEVICE 
3626 035024 1300) $ 001226 MOV #73,$TESIN +:SET TEST NUMBER IN APT MAIL BOX 
035032 010037 001136 MOV RO, SBDADR :SETUP REGISTER ADDRESS FOR MSG 
3008 035036 Oser 7 o0o0ts 001136 ADD - #RMER1,$BDADR 
35044 012702 12 MOV #100$ ,R2 s INITIALIZE TABLE POINTER 
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1 _ iCLEAR THE DEVICE AND ENABLE DEBUG CLOCK 
3 20 737 055156 JSR PC,CNTCLR 360 CLEAR CONTROLLER 
5054 01 760 1 900024 MOV ADMD - RBMR’ (RO) *LOAD RMMR1 
5 035 1276 1001 00 4 MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
5 12760 000 000014 MOV #9 .RMER (RO) :LOAD RMER1 
3 025076 012760 000000 000042 MOV >RMER2Z(RO) LOAD RMER2 
39 ;SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE 
0 035104 012760 000001 000000 MOV #60 Reicsi (RO) ; 1 
3641 035112 01120 (R25 ,R SGENERATE REGISTER ADDRESS 
3642 035114 06000 AD RO,R 
sete 035116 012713 041001 MOV #DMD ! MUR! DBEN, (R3) sWRITE THE REGISTER 
5 7 ;VERIFY RMR ACCORDING TO TABLE 
3646 035122 016037 000014 001142 MOV RMER1 (RO) ,SBDDAT sSTORE RMER1 AT SBDDAT 
3647 035130 042737 177773 001142 BIC #°CRMR, SBDD 
8 035136 016237 000002 001140 MOV 2(R2) , $GDDAT :GET EXPECTED RESULT FROM TABLE 
9 035144 023737 001140 001142 CMP SGDDAT , SBDDAT 
50 035152 001411 BEQ ;BRANCH IF RMR IS OK 
3651 035154 011237 001174 MOV (R2) ,STMPO [SAVE TEST REGISTER 
3652 035160 032762 000004 000002 BIT #RMR, 2(R2) 
3653 035166 00100 BNE 20$ sBRANCH IF ERROR SHOULD BE ONE 
3654 035170 10421 EMT 213 
3655 035172 BR 30$ 
3656 035174 20S: 
ies 035174 104214 EMT 214 
3658 sADVANCE TABLE POINTER, EXIT IF DONE 
3659 035176 50$: 
3660 035176 062702 000004 ADD #4,R2 
1 035202 00571 TST (R2) 
3662 035204 100401 BMI 40$ sEXIT IF ENTRY NEGATIVE 
3663 035206 000720 BR 10$ 
3664 035210 000410 40$: BR 200$ : JUMP OVER TABLE 
3666 -TABLE OF REGISTER ADDRESSES AND RMR VALUES 
3667 035212 1008: 
3668 035212 000016 .WORD RMAS sATTENTION SUMMARY REG 
3669 035214 000000 “WORD 0 [RMR = 0 
3671 035216 000024 .WORD RMMR1 sMAINTENANCE REG 
367 035220 000000 “WORD 0 [RMR = 0 
3674 035222 000006 .WORD RMDA :DISK ADDRESS REG 
3673 035224 000004 “WORD RMR [RMR = 1 
177777 .WORD =1 ZEND OF TABLE 
000000 “WORD 0 
2008: sEND OF TEST 
f ERRAAAAAARAAAAAAERAERAERERERAAAAAAREEERERARERERERRARERRRRRAAEREEE 
SRTEST 74 PGM STATUS CHECK 


{FARRAR AAAAAAAAAAARAAAERERAAAARARAERERERARERERRERAARERARERRERERES 


C 14 
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174 PGM STATUS CHECK 


035 TST74: 
035 04 COPE :SCOPE CALL 
9 5 1 708 11 MOV #STACK sP ;LOAD THE STACK POINTER 
5242 0137 1276 MOV SBASE,R +RO = UNIBUS ADDRESS 
035 46 oi 701 0014 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
: 5252 012737 000074 001226 MOV #76, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
383 3CLEAR AND READ DRIVE TYPE AND DRIVE STATUS 
5 035260 004737 055156 JSR PC, CNT 360 CLEAR CONTROLLER 
035 64 016037 900026 001174 MOV RMDT(RO),$TMPO STORE RMDT AT $TMPO 
035272 016037 000012 001142 MOV RMDS(RO).SBDDAT :STORE RMDS AT SBDDAT 
9 sOMIT TEST IF DRQ IS ON = ELSE VERIFY THAT PGM IS OFF 
90 035300 032737 004000 001174 BIT #DRQ,$TMPO 
91 055306 001014 E ;BRANCH IF DRO IS ON 
3692 035310 042737 176777 001142 BIC #°CPGM, $BDDAT 
3693 035316 001410 BEQ 10$ ;BRANCH IF PGM IS OFF 
3694 035320 005037 001140 CLR SGDDAT 
3695 035324 010037 001136 MOV RO, $BDADR 
3696 0353 062737 000012 001134 ADD #RMDS ,SGDADR 
3697 035336 104215 EMT 215 
3698 035340 108: sEND OF TEST 
700 32 RERRAAERARAERERAAERRARRERREEEARARAAAERAERARERAEEEAERERARRAEERERREKE 
SeTEST 75 DVA/DPR STATUS CHECK 
© REAAAAARARARAERARARREREERERERERERAREREREREREERERAEEAEERERREAREREEKE 
035340 T8175: 
035340 000004 SCOPE :SCOPE CALL 
03534 0 NOP 
035344 012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
035350 0137 001276 MOV $BAS [RO = UNI RESS 
035354 013701 1666 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
tie 35 012737 000075 001226 MOV «#75, STESTN +:SET TEST NUMBER IN APT MAIL BOX 
3708 sCLEAR AND VERIFY THAT DVA IS SET 
370 035366 004737 055156 JSR PC,CN ul 360 CLEAR CONTROLLER 
704 035372 016037 00114 MOV RMCS1(RO) ,SBDDAT sSTORE RMCS1 AT SBDDAT 
3705 035400 042737 173777 00114 BIC #°CDVA, SBDDAT 
3706 035406 901006 BNE 10$ sBRANCH IF DVA IS ON 
3707 035410 0127 904000 001140 MOV #DVA, SGDDAT 
3708 035416 010037 0011 MOV RO, SBDADR 
3709 035422 104216 EMT 216 
711 “VERIFY THAT DPR IS SET 
37 O35e94 16037 12 00114 108: MOV RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
371% 03543 O4e737 90ers bolt BIC #°CDPR,SBDDAT ~ : 
716 035442 01 oy 90 001140 MOV ADPR, SGDDAT 
17 035450 010037 0011 | MOV 20,$BDADR 
718 035454 062737 001136 ADD ARDS , SBDADR 
719 035462 104217 EMT 217 


720 
721 035464 208: sEND OF TEST 
3722 
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PORT REQUEST TEST, PART 1 


001226 


000000 


001226 © 


SEQ 0172 


FRARAAARAREAERERRAERRRERERERAAERERAEERARERRAREERERERRRERREAAERRAEE 


TRTEST 76 PORT REQUEST TEST, PART 1 
© RARARAAAREAARERARAEREEEEEERAERARAARRARARAREREAEERARARAERRAEEARREARREE 
Scop :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV =RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
MOV #76, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 


JSR PC, SETVV :G0 SET VOLUME VALID 
BR 10$ *BRANCH TO 10$ IF NO ERROR 
BR 


208 
jEXECUTE A RELEASE TO RESET REQUEST FLOP 

"MOV WRLEASE!GO,RMCS1(RO) — ; LOAD RMCS1 
READ rIwaRe AND SKIP TEST IF REQUEST FLOPS OPS ARENT RESET 


0) ,R2 zSTORE RMAR 
BIC #*C<RQA!RQB>,R2 
BNE 208 


zREAD RMCS1 TO SET REQUEST FLOP 
MOV RMCS1(RO) ,R2 sSTORE RMCS1 AT R2 


VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
MOV RMD 


S(RO).R ZSTORE RMDS AT RS 
BIT #PGM,RS [SEE IF PGM IS SET 
BEQ 0$ [DONT TEST REQUEST IF pom IS ZERO 
MOV RMMR2 (RO) ,SBDDAT SSTORE RMMR2 AT SBDDAT 
BIC #°C<ROQA!ROB>, $BDDA 
BNE 20$ sBRANCH IF REQUEST IS SET 
MOV RO, SBDADR 
ADD #RMMR2 , SBDADR 
EMT 220 
20$: 
FRRARAAAARAAAEREEERRAERERERERAAARAARRERRERRRERRRERAERRRARARRRROR 
tSTEST 77 PORT REQUEST TEST, PART 2 
Oo -mpeaigae anemone y lf ME Ne amamaeen mene ate Mee A PF 
a” : 
SCOPE :SCOPE CALL 
MOV #STACK ci sLOAD THE STACK POINTER 
MOV tRO = UNI S 
MOV T310y :R1 = SOINTER TO DEVICE 
MOV #77, Ue +;SET TEST NUMGER IN APT MAIL BOX 
JSR PC SETVV :G0 SET VOLUME VALID 
BR 10$ *BRANCH TO 10$ IF NO ERROR 
BR 20$ 


ao 


E 14 
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T PORT REQUEST TEST, PART 2 


75 

1e14 amet EXECUTE A RELEASE TO RESET REQUEST FLOP 

£59 035654 012760 000013 000000 MOV WRLEASE!GO,RMCS1(RO) LOAD RMCS1 
761 ;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 
76¢ 035662 01600 900040 MOV RMMR2(RO).R2 | ;STORE RMMR2 AT R2 

763 035 042702 03777 BIC #*C<RQA!ROQB>,R 

764 035672 00102 BNE 20$ 


sWRITE ys 8 ear w Lregeetf REGISTER TO SET REQUEST FLOP 
es 035674 012760 177777 000016 #-1,,RMAS (RO) 3LOAD RMAS 


3 VERIFY Hina vont + S¢RO) oR S SET IF PGM IS SET 


770 035702 016005 000012 sSTORE RMDS AT RS 
032705 001000 BIT pat: 3SEE IF PGM IS SET 
aa! 0 ant 001415 BEQ 20$ “DONT TEST REQUEST IF POM Is ZERO 
035714 016037 900040 901142 MOV RMMR2(RO),SBDDAT [STORE RMMR2 AT $B 
77% 035722 042737 037777 00114 BIC #*C<ROA!ROB>, SBDDAT 
775 035 901006 BNE $ 
3776 035732 010037 001136 MOV RO, $BDADR 
377 35736 062737 000040 001136 ADD #RIAR2 , SBDADR 
778 035744 104221 EMT 221 
3779 035746 20S: 
3781 FRRARARAAAARRARAERARERERERERERERERERERAREEEREERRRRERRRERARARERREE 
tSTEST 100 PORT REQUEST TEST, PART 3 
© RAAAAARAAARARAAAAERREREREREEERARAAARAEKREREEREREREEEREAERAEREREREREKRK 
035746 15T100: 
035746 000004 SCOPE :SCOPE CALL 
035750 909240 NOP 
035752 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
035756 013700 001276 MOV *RO = UNIBUS ADDRESS 
035762 013701 001466 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
035766 012737 000100 001226 MOV Wi0O-STESTN *;SET TEST NUMBER IN APT MAIL BOX 
378 035774 004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
036000 00040 BR 10$ SBRANCH TO 10$ IF NO ERROR 
036002 104 : EMT 
784 036004 208 
7 “EXECUTE A RELEASE COMMAMD TO RESET REQUEST FLOP 
786 936006 10$: 
88 036006 012760 000013 000000 MOV WRLEASE!GO,RMCS1(RO) §; LOAD RMCS1 
790 nate READ rewn2 AND SkIP TEST IF REQUEST FLOPS ARENT RESET 
O30 b4e703 pooo48 BIC #*C<RQA!ROB>,R2 
36024 00102 BNE 20$ 


795 sWRITE RMDA TO SET REQUEST FLOP 
‘a 036026 012760 000000 000006 MOV #0,RMDA(RO) zLOAD RMDA 


VERIFY THAT nest S¢h0)R al* SET if PGM IS ST 


798 
799 036034 016005 1 MOV STORE RMDS AT R5 
836020 035908 807000 BIT WPCA ‘SEE IF PGA ts SET 
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037777 
200040 


F 14 
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3 
BEQ 208 :DONT TEST REQUEST IF PGM IS ZERO 
001142 MOV RMMR2 (RO) ,SBDDAT SSTORE RMMR2 AT SBDDAT 
142 —. BIC C<RQA!ROB> , SBDDAT 
MOV RO, SBDADR 
001136 ADD 


#RMMR2 , SBDADR 
EMT 222 


20S: 


f ERRAAAAAAAAAARARAAARERAREREEARAAARERERERERRERRERAERERES CRRRREREEE 


s*TEST 101 RELEASE TEST 
90+ gpa ce Pa ak PS aE rR tem 
T101: 
sce sSCOPE CALL 
MOV #STACK,SP z;LOAD THE STACK POINTER 
MOV ;RO = UNIBUS ADDRESS 


; D 
MOV TSTQUE ,R1 ?R1 = POINTER TO DEVICE 
001226 MOV #101, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 


sREQUEST FLOP SHOULD SET WHEN WRITTING RMCS1 
G0 SET VOLUME VALID 


JSR PC,SETVV 
BR 10$ SBRANCH TO 10$ IF NO ERROR 
BR 40$ 
jEXECUTE A RELEASE COMMAND 
000024 “MOV #DMD!DBEN!MUR.RMMR1(RO) ;LOAD RMMR1 
000000 MOV #RLEASE!GO,RMCS1(RO)  :LOAD RMCS1 
coal MOV #2,R2 | 
000024 "mov #DMD'DBEN!MUR!DBCK,RMMR1(RO) — ;LOAD RMMR1 


000024 MOV #DMD !DBEN! MUR. RMMRI (RO) ;LOAD RMMR1 


DEC ; 
BNE 208 sISSUE 2 CLOCKS 
SVERIFY REQUEST FLOPS ARE RESET 

001174 MOV R™DT(RO) ST sSTORE RMDT AT STHPO 
001142 MOV RMMR2 (ROS ,SBDDAT sSTORE RMMR2 AT SBDDAT 
00114 BIC #°C<ROA!ROB>, SBDDAT 

BEQ 40$ :BRANCH IF REQUESTS ARE RESET 
001174 BIT #DRQ,$TMPO 

BEQ 30$ ;BRANCH IF SINGLE PONT DEVICE 
001142 BIT #ROA, SBDDAT 

BEQ 40$ :BRANCH IF RQA IS RESET 
001142 BIT #ROB,SBDDAT . 

BEQ 40$ :BRANCH IF ROB IS RESET 


zDRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND 
,B0TH REQUEST FLOPS ARE ON 


50s 
MOV RO, SBDADR 
001136 ADD ARMMR2 , SBDADR 


SEQ 0174 
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000004 


Sees Bese 
Ssscs 8838 


001142 


001136 


EMT 223 
40S: 
FRRAAAAAAAAAAARERERRERERERAERERARERERERERERERERERREREREREREREEER 
tSTEST 102 WRITE ATA TEST 
otin cs CCcKaeteat ee eee 
T : 
sc :SCOPE CALL 
NOP 
MOV #STACK, SP 
MOV SE ,RO 
MOV TSIQUE,R1 
MOV #102, $TESTN 
CLEAR THE € DEVICE. Sirctatoosrte MODE THEN SET UNIT READY 
*ov MD,RMMR1(RO) :LOAD RMMRI 
MOV #0,RMER1(RO) § :LOAD RMER1 
MOV #0.R "RMERZ(RO) —_—: LOAD RMER2 
MOV ADMD ! MUR, RMMR1 (RD) 
sWRITE THE ATTENTION SUMMARY REGISTER 
MOVB —« (R11) ,R2 
BIC #°CUNTMS 
MOVB ATNTBL (R2) .R3 
BIC #°CATNM 
MOV R3, etn) ZLOAD RMAS 
;READ RMDS AND VERIFY THAT ATA IS RESET 
MOV RMDS (RO) SBDDAT [STORE RMDS AT SBDDAT 
BIC #°CATA, SBDDA 
BEQ 10$ 
MOV RO, SBDADR 
ADD 
CLR SGDDAT 
EMT 224 
BR 20$ 
gREAD RMAS AND VERIFY ATA IS RESET 
mov RNAS (RO) ,SBDDAT ;STORE RMAS AT SBDDAT 
BIC RS SBDDAT 
BEQ $ 
CLR SGDDAT 
MOV RO, SBDADR 
ADD sRAA $,$BDADR 
20S: 
FRAAAAAAAREAAARARERERERERARERARAREAERERARAAEERARAERARRRERARAEREEE 
tSTEST 103 RESET ATA BY GO TEST 
7 ogame crane bac Anta igr tevnatRF N ATS 
” SCOPE :SCOPE CALL 
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RELEASE TEST 


sEND OF TEST 


sLOAD THE STACK POINTER 
3RO = UNIBUS ADDRESS 
3R1 = POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


360 CLEAR CONTROLLER 


sBRANCH IF ATA IS RESET 


sBRANCH IF ATA IS RESET 


sEND OF TEST 


3LOAD RMAR1 


sASSEMBLE THE ATA BIT IN R3 


SEQ 0175 
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RESET ATA BY GO 
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10$: 


s*TEST 104 


© REAARAARARARAEARAAERAEEEEEREEEERRERRAERARRARARRERERERERERERRRERREEE 


T$1104: 


3SET UNIT READY 
MOV 


MOV 
BIC 
BNE 
MOV 
ADD 
MOV 
EMT 
CLEAR ATA, 
ibs: 


MOV 
MOV 


H 14 
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#STACK sP 
S$BASE,R 
TSTQUE,R1 
#103, $TESTN 


PC,CNTCLR 
RMAR 


#°CATA, SBDDAT 
10$ 


SGDDAT 
RO, $8DADR 


#RADS , SBDADR 
226 


sLOAD THE STACK POINTER 
;RO = UNIBUS 


$R1 = POINTER TO DEVICE 
+:SET TEST NUMBER IN APT MAIL BOX 


360 CLEAR CONTROLLER 
; RMR 1 


sLOAD RMERI 


“LOAD RMER2 
RMARI(RO) ;LOAD RMMR1 
CLOCK ENABLED, SET GO AND VERIFY THAT ATA IS RESET 
#GO,RMCS1(RO) LOAD RMC 
RMDS(RO),S$BDDAT :STORE RMDS AT SBDDAT 
:BRANCH IF ATA IS RESET 


sEND OF TEST 


5 RRAAAAAAARERARAAARERERERERERRAREEREREERRRERRERARRRRERRERRRREREE 


UNIT READY ATA TEST 


#STACK, SP 
$BASE,R 
TSTQUE,R1 

#104, $TESTN 


sSCOPE CALL 


sLOAD THE STACK POINTER 
3RO = UNIBUS ADDRESS 

3R1_= POINTER TO DEVICE 

33SET TEST NUMBER IN APT MAIL BOX 


MODE AND CLEAR ATA 


PC, CNTCLR 

,RMMR1(RO) ;LOAD RMR 
#0,RMERI(RO) LOAD RMER1 
#0.RMER2(RO) § :LOAD RMER2 
#-1,RMAS(RO) LOAD RMAS 
AND VERIFY ATA IS SET 
#DMD ! MUR, RMAR1 (RO) 3L 
RMDS(RO).$BDDAT ;STORE RMD 
#°CATA, SBDDAT 


RO, $8DADR 


#RADS. SBDADR 
HATA, SGDDAT 
227 


#~1 ,RMAS (RO) 


#DMD , RMMR1 (RO) 


RESET UNIT READY, AND VERIFY ATA IS SET 


3LOAD RMAS 
3LOAD RMAR1 


3G0 CLEAR CONTROLLER 
;LOAD 1 


OAD _RMAR1 
S AT SB8DDAT 
sBRANCH IF ATA IS SET 





SEQ 0176 


3948 

3949 0371 
3950 037114 
3951 ot 2 


3955 037 637132 
3954 037140 
3955 037144 
3956 037152 
957 


958 037154 
3959 


re & 


L28k 


3961 
44 037202 
96 


964 
3965 037206 


I 14 


SKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-82 
EADY ATA TEST 


16037 
111 
10037 
737 
012737 
1042 


37 


RUSE 
S333 


ec 
+ gh SA 
BGs 


- 


2 
—~ 
CaN uN 


SNS 


012737 
012702 


7778 
0011 
00001 
100000 


114 
114 


00113 
00114 


001226 


2 


t 


MOV RMDS (RO) SBDDAT :STORE RMDS AT SBDDAT 
BIC #°CATA, SBDDA 
BNE 
MOV RO, SBDADR 
ADD #RMDS , SBDADR 
MOV #ATA, SGDDAT 
EMT 230 
0S: zEND OF TEST 
FRRAAAAAAEERAERAREEREEEERERERRARERERRERERERERERREREREERRRRERERES 
tSTEST 105 ERROR ATA TEST 
OOS aan ama etree pam aR RCRD ie aie bacpamtenee its 
T : 
SCOPE :SCOPE CALL 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV ?R1 = POINTER TO DEVICE 


TSTQUE ,R1 
MOV #105, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
ICLEAR THE DEVICE AND RESET ATTENTION 
JSR 360 CLEAR CONTROLLER 
“LOAD RMMR1 


MOV #O-RMERZ.RO? SLOAD RMER2 
MOV #-1,RMAS(RO) LOAD RMAS 


sWRITE ONES IN was wes rts 1 AND gt Ae IS SET 


MOV 
MOV Rim (RO) SBDDAT :STORE RMDS AT SBDDAT 
BIC #°CATA, SBDDAT 
BNE 10$ 
MOV - #ATA,$GDDAT 
MOV RO, SBDADR 
ADD #RMDS , SBDADR 
EMT 231 
10$: zEND OF TEST 
FRRAAERAAERERERRAREREREEERERERRERERERREREERERERERRRERERRRERERERR 
tSTEST 106 REGISTER TRANSFER ATA TEST 
Oo Cape giee ts ook ection roem manaatet em ceanamele tana oni i: 
SCOP :SCOPE CALL 
MOV #STACK, SP LOAD THE THE asic POINTER 
MOV S ADDRESS 
MOV TSTQUE,R :R1 = SINTER TO DEVICE 
MOV #106, SfESTN +:SET TEST NUMBER IN APT MAIL BOX 
MOV #100$,R2 sINITIALIZE TABLE ADDRESS 
gFORce COMPOSITE ERROR AND RESET ATA 


SEQ 0177 





IS 


3982 037304 
3983 037312 
984 


985 

86 037314 
3987 037314 
3988 037320 
3989 037322 
3990 037324 
3991 037326 
3992 


3993 

3994 037330 

995 037330 
037332 


3998 037334 

3999 037336 

4000 

4001 037340 

read 037342 
3 


4004 037344 
4005 037346 


4006 
4007 037350 
4008 


037370 
4010 
4011 037376 
4012 037402 


RM80 DSKLS PT1 MACRO V04 
TER TRANSFER ATA TE 


she 


Bere fot 


055156 


177777 


sWRITE THE TEST 
MOV 


FRRAARAAARAREREREREREREREERERAERAREEREREERREERERRERRRERRORRERERER 


© REARAAEAEARAEEAEEAEEREREEEEEEEEEEERERAEAEERAEREREEEEREREEEEREAEEREREERE 


JSR 
MOV 
MOV 
MOV 


#DMD ,REMR1 ( 
#=1,RMER1 (RO) 


#-1,RMAS (RO) 


mesusten AND VERIFY ATA 
(R2) ,R 


360 CLEAR CONTROLLER 
‘ RMAR 1 
sLOAD RMER1 
3LOAD RMAS 


BRANCH IF ATA IS OK 


sEXIT IF ENTRY MINUS 
JUMP OVER TABLE 


sGENERATE REGISTER ADDRESS 


(R35) 
ACATA,SEDDAT zSTORE RMDS AT SBDDAT 


sEND OF TABLE 


sEnD OF TEST 


sSCOPE CALL 


LOAD THE STACK POINTER 
DRESS 


UNIBUS AD 


;RO = 
3R1_= POINTER TO DEVICE 
33SET TEST NUMBER IN APT MAIL BOX 


ADD 0,R3 
CLR 
2 901142 MOV 
adda 00114 BIC #°CAT 
001140 MOV 2(R2 yAgSbp AT 
001140 001142 CMP Ssppat, SBDDAT 
001174 MOV ,$TMPO 
001136 MOV RO, $BDADR 
000012 001136 ADD RMDS , $BDADR 
EMT 2 
sMOve TABLE POINTER = EXIT IF DONE 
000004 "ADD #4,R2 
TST Re) 
BMI 
BR gos 
20$: BR 200$ 
{TABLE OF REGISTER ADDRESSES AND ATA BITS 
“WORD = RMAS 
WORD 
.WORD MDA 
“WORD ATA 
.WORD RMCS1 
“WORD 
.WORD =1 
WORD 
200$: 
tSTEST 107 P SET ATA TEST 
$1107 
SCOP 
NOP 
001100 MOV #STACK, SP 
001276 MOV 
0014 MOV TSTQUE,R 
000107 001226 MOV #107, STESTN 
037540 MOV #100$,R2 


10$: 


INITIALIZE TABLE POINTER 


SEQ 0178 


1107 





4013 037402 
0374 
03741 

4014 037412 

4015 


oni8 
4017 037414 
4018 037414 


reid 0374 3 
4021 1051 O89 
1056 tobe: 
4023 03744 


0 
4024 037440 
4025 037446 
4026 037454 
4027 037456 
4028 


4029 
4030 037460 
74 


36 
4037 037323 
4038 


4039 

4040 037524 
4041 037524 
rr a4 037 
4043 037532 
4044 037534 
4045 037536 
4046 


4047 

4048 037540 
4049 037540 
4050 037542 
4051 037544 
4052 037546 
4053 


4054 


4055 
4056 037574 
4057 037600 


oo ooooo 

a= et 

ron ven 
SESS 
Ww Sas 


a 
cen 


=-Co0°0 l=] 
pane 
auc 
ANWNN 


BeEue 
BNous 


— 
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054732 


000024 


001226 
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P SET ATA TEST 


3GO SET VOLUME VALID 


JSR PC,SETVV 
208 [BRANCH TO 20$ IF NO ERROR 


EMT 
BR 50$ 


—" THE COMMAND FROM THE TABLE 


MOV #DMD!MUR!DBEN, -RMMRI(RO) :LOAD RMMR1 
MOV (R2).R :GET FUNCTION CODE 


BIS #0. 
MOV R3,RMCS1(RO) §;LOAD RMCS1 
a MOV #3.R3 
"MoV #DMD!MUR!DBEN!DBCK.RMMRI(RO) —_:LOAD RMMR1 
MoV #DMD! iMUR'DBEN,RMMR1(RO) :LOAD RMMR1 
BNE 30$ 


VERIFY THAT ATA_IS SET 
MOV RMDS (RO) = sSTORE RMDS AT SBDDAT 
es 


#RMDS ,SBDADR 
MOV HATA, SGDDAT 
MOV Rg) -STHPO 
EMT 
jADVANCE TABLE POINTER-EXIT IF DONE 
ADD #2,R2 
TST (R2) 
50 
BR 10$ 
50$: BR 200$ ;JUMP OVER TABLE 


iTABLE OF FUNCTION CODES 
* WORD OFFSET 
WORD RTC 


“WORD =1 ZEND OF TABLE 
200S: 
FRRRRREREEEREERREREREEEEEEERERREREREERERRRRREREEREREREREREEERERE 
tSTEST 110 SET WLE TEST 
ee re ee tts cate 
SCOPE i 3SCOPE CALL 
MOV #STACK,SP :LOAD THE STACK POINTER 
MOV IBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #110, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 


MOV #100$,R2 INITIALIZE TABLE POINTER 


10$: 


L 14 
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T110 SET WLE TEST 
4058 037600 737 054732 JSR PC SETVV :GO SET VOLUME VALID 
037604 402 BR 20$ ‘BRANCH TO 20$ IF NO ERROR 
037606 104 EMT 
4059 037610 000466 BR 50$ 
4061 saves ZENABLE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE 
4063 037612 016203 000002 MOV 2(R2) ,R3 ;GET WRITE PROTECT FROM TABLE 
4064 037616 052703 041001 BIS ADMD ! MUR! DBEN RS" SET OTHER MAINT BITS 
4065 037622 010360 000024 MOV R3,RMMR1(RO)  s LOAD anni 
4067 ;LOAD AND EXECUTE THE COMMAND FROM THE TABLE 
4068 037626 011204 MOV (R2),R4 sGET FUNCTION CODE FROM TABLE 
4069 037630 052704 000001 BIS #GO,R4 3SET GO 
4070 037634 010460 000000 MOV R4,RMCS1(RO) LOAD RMCS1 
4071 037640 012705 000002 MOV #2,R5 TRSSCLOCK COUNT 
4072 037644 052703 100000 30$: BIS #DBCK,R3 ‘SET CLOCK 
4073 037650 010360 000024 MOV R3,RMMR1(RO) § :LOAD RMMR1 
4074 037654 042703 100000 BIC ADBCK,R3 TRESET CLOCK 
075 037660 010360 000024 MOV R3,RMMR1(RO) LOAD RMMRI 
4076 037664 005305 DEC R5 
001366 BNE 30$ ZISSUE 2 CLOCKS 


ri thd 037666 
4079 zVERIFY THAT WRITE LOCK ERROR IS ACCORDING TO TABLE 
4080 037670 016037 MOV RMER1 (RO) ,SBDDAT 


000014 001142 :STORE RMER1 AT SBDDAT 
4081 037676 042737 173777 001142 BIC #°CWLE,SBDDAT 
4082 037704 026237 000004 001142 CMP 4(R2) , $BDDAT 
4083 037712 001417 BEQ 40$ sBRANCH IF WLE IS OK 
4084 037714 016237 000004 001140 MOV 4(R2),$GDDAT | :SAVE DATA FOR ERROR MSG 
4085 037722 010037 001136 MOV RO, SBDADR 
4086 037726 062737 000014 001136 ADD #RMER1 , SBDADR 
4087 037734 011237 001174 MOV (R2) Simo, :STMPO=FUNCTION CODE 
4088 037740 016237 000002 001176 MOV 2¢ (Re5 . STAP [$TMP1=WRITE PROTECT 
4089 037746 104234 EMT 234 
4090 037750 000406 BR 50$ 
4092 “ADVANCE TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE 
4093 037752 40$: 
4094 037752 062702 000006 ADD #6,R2 
4095 037756 005762 000002 TST 2(R2) 
409% 037762 100401 BMI 50$ 
4097 037764 000705 BR 10$ :REPEAT TEST 
4099 037766 000416 50$: BR 200$ :JUMP OVER TABLE 
4101 -TABLE OF FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS 
4102 037770 100$: 
4103 037770 000060 .WORD wD WRITE DATA COMMAND 
4104 037772 000010 “WORD MWP :WRITE PROTECT ON 
4105 037774 004000 “WORD WLE SWRITE Lock ERROR ONE 
4107 037776 000060 .WORD WD WRITE DATA COMMAND 
4108 04 000000 ; WORD *MWP OFF 
4109 040002 000000 WORD SWLE OFF 
4111 040004 000070 .WORD RD sREAD DATA COMMAND 
4112 040006 000010 “WORD  MWP *MWP ON 


ee ed ed eed ed eed aed g 
wn 
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RUNS saan 
RR KLE = 
Ss Sss 
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040024 
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001100 


040324 


055156 
000024 
167777 


001146 


054732 


000000 
000000 


001226 


000006 
000034 
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- WORD 

WORD RIP 
WORD MUP 
- WORD 

- WORD 

WORD <1 

200$: 
;RTEST 111 


TST111: 


NOP 
MOV #STACK,SP 
pete 


MOV 
MOV TSTQUE R1 
MOV #111, STESTN 


3EXCEP TI 


MOV #100$ ,R2 
s INITIALIZE AND VERIFY THAT EXCEPTION IS RESET 


G0 CLEAR CONTROLLER 
STORE RMMR1 AT SBDDAT 


sBRANCH IF EXCEPTION IS 0 


MOV RMAR1(RO) SBDDAT 
BIC #°CREX. SBDDA AT 


ADD #RAOR $BDADR 


10$ 
JSR PC, CNTCLR 
BEQ 
MOV RO, SBDADR 
CLR $GDDAT 
EMT 235 

20$: 


JSR PC,SETVV 


30$ 
60$ 


ate A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO 


MOV #0,RMDA(RO) 
MOV #0, RMDC (RO) 


PAR, IF RUN AND G 
RMR, IF RUN 
sLRe IF RUN AND G 


sWLE OFF 
;READ IN PRESET COMMAND 
ULE OFF 
END OF TABLE 


sEND OF TEST 


FRARRRRAAREERRRERRERRREEEEEREEREREREREREE AREERRERERERERERRRRS RRRER 


EXCEPTION TEST 

5 RRR ARRARRRARAERARAAAAAAAAARAAAAERRE RAE 
sSCOPE CALL 

3LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS 

3R1_= POINTER TO DEVICE 

7;SET TEST NUMBER IN APT MAIL BOX 


sWITH MS SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN 


INITIALIZE TABLE POINTER 


3GO SET VOLUME VALID 
;BRANCH TO 30$ IF NO ERROR 


LOAD RMDA 
LOAD RMDC 


N 146 
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T111—« EXCEPTION TEST 
4158 0146 0127 1001 900024 MOV #OMD!MUR!DBEN.RMMR1(RO) ;LOAD RMMR1 
415 0194 127 1 000 MOV syd 1g0-RACSI (RO) SLOAD RMCS1 
4160 040162 0127 2 MOV 
4161 040166 40$: 
04 166 12760 141001 000024 MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO)  ;LOAD RMMRI 
4162 0174 012760 041001 000024 MOV SOND iMURiDBEN, SRMMRI (RO) ;LOAD RMMR1 
4163 040202 005303 DEC R3 
4164 040 001370 BNE 40$ zISSUE 2 CLOCKS 
;LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET 
4167 040206 011260 000014 MOV (R ¢) .RM RMER1 (RO) 
4168 040212 012737 900200 001534 MOV #200, WATCH SET WATCHDOG TIMER VALUE 
mend 940220 004777 141312 ioe JSR Pe acLock SSTART THE CLOCK 
040224 016037 000024 001142 MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT SBDDAT 
4170 040232 042737 167777 001142 BIC #°CREX, SBDDA 
4171 040240 001021 BNE 50$ 
4172 040242 005737 001534 TST WATCH sHAS CLOCK EXPIRED ?? 
4173 040246 001366 BNE 45$ *NO = TAKE ANOTHER SAMPLE 
4174 040250 00477 141264 JSR PC aSTOPCL *STOP THE CLOCK 
4175 040254 612737 010000 001140 MOV #REX, $G 
4176 040262 010037 001136 MOV RO Or abDapR 
4177 0640266 062737 000024 001136 ADD #RMMR1 , SBDADR 
4178 040274 011237 001174 MOV (R2) ,STMPO 
4179 040300 104236 EMT 236 
4180 040302 000407 BR 60$ 
4182 sADVANCE TABLE POINTER-EXIT IF DONE 
4183 040304 50$: 
4184 040304 004777 141230 JSR PC, aSTOPCL sSTOP THE CLOCK 
4185 040310 062702 000002 ADD #2.R2 
4186 040314 005712 TST (R2) 
4187 040316 001401 BEQ 60$ 
4188 040320 000656 BR 10$ 
4189 040322 000402 60$: BR 200$ :JUMP OVER TABLE 
4191 | “PRESENTLY, THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE 
419 ‘TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF 
419 tA HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR 
4194 *REGISTER 1 WITH GO SET. 
4195 040324 100$: 
4196 040324 000004 .WORD RMR :RMR IS CAUSED BY HARDWARE 
4198 040326 000000 WORD :END OF TABLE 
4199 040330 200$: SEND OF TEST 
4 01 FERRARA REEEREREREERRRERERAEREERAAREREEEERARERERERARERERARAREREEE 
tRTEST 112 RECALIBRATE TEST 
© RRAAAARAAAAAAAERAEERERERAEREEARAERAAERERERAERAEEERAARRAERAAAEAEAERAAEE 
040330 T$T112: 
040330 :SCOPE CALL 
0332 40 NOP 
040334 01 06 1100 MOV #STACK SP ;LOAD THE STACK POINTER 
040340 0137 1276 MOV SER *RO = UNIBUS ADDRESS 
040344 013701 0014 MOV TSTQUE,R1 'R1 = POINTER TO DEVICE 
040350 012737 112 001226 MOV #112, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
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2 RECALIBRATE TEST | 
8 
ie :VERIFY THAT OPI SETS IF UNIT READY DROPS AFTER DECODE 
4206 040356 004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
040362 000403 BR 10$ {BRANCH TO 10$ IF NO ERROR 
040364 104 EMT 
4207 040366 000137 041664 JMP 330$ 
4209 *ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
4210 040372 10$: 
4211 040372 012760 041001 000024 MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
4212 040400 012760 000000 000014 MOV 40, RMERT(RO) © ;LOAD RMER1 
4213 040406 012760 000000 000042 MOV #0. RMER2(RO) LOAD RMER2 
agi 040414 012760 000007 000000 MOV PRECAL S60 RMCS1 (RO) ;LOAD RMCS1 
4216 STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS) 
4217 040422 012702 000002 MOV #2,R2 
4218 040426 20S: 
040426 012760 141001 000024 MOV #DMD'MUR!DBEN!DBCK,RMMR1(RO) — ; LOAD RMMR1 
4219 040434 012760 041001 000024 MOV #DMD'FUR'DREN,RMMRI(RO) :LOAD RMMR1 
4220 040442 005302 DEC R2 
ace 040444 001370 BNE 20$ 
4223 :DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
4224 040446 012760 040001 000024 MOV #DMD ! DBEN, RMMR1 (RO) ;LOAD RMAR1 
4225 040454 012702 000002 MOV #2,R2 
4226 040460 30S: 
040460 012760 140001 000024 MOV #DMD ! DBEN! DBCK,RMMR1 (RO) >LOAD RMMR1 
040466 012760 040001 000024 MOV #DMD ' DBEN, RMMRi (RO) :LOAD RMAR1 
4228 040474 005302 DEC R 
4229 040476 001370 BNE 308 
231 sVERIFY THAT OPI IS SET 
4232 040500 016037 000014 001142 MOV RMER1(RO), SBDDAT sSTORE RMER1 AT SBDDAT 
4233 040506 042737 157777 001142 BIC #°COPI,S$BDDA 
234 040514 001011 BNE 
4235 040516 012737 020000 001140 MOV #OPI ,SGDDAT 
4236 040524 010037 001136 MOV RO, $BDA 
4237 040530 062737 000014 001136 ADD #RMER1, SBDADR 
238 040536 104241 EMT 241 


4239 
$539 040540 012737 040546 001124 40S: MOV #50$,,SLPERR :CHANGE LOOP ON ERROR ADDRESS 


424e “VERIFY THAT RECALIBRATE ABORTS DURING EXECUTION 

4243 040546 50$: 

4244 040546 004737 054732 JSR PC, SETVV :G0 SET VOLUME VALID 
040552 000403 BR 60$ SBRANCH TO 60$ IF NO ERROR 
040554 104000 EMT 

4245 040556 000137 041664 JMP 330$ 

424 -ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

4248 04056 60$: 

4249 040562 012760 041001 000024 MOV #DMD MUR DBEN, RMMR1(RO) ;LOAD RMMR1 

4250 040570 012760 000000 000014 MOV 40, RMERI(RO)  ;LOAD RMER1 

4251 040576 012760 000000 000042 MOV RMER2(R {LOAD RMER2 
040604 012760 000007 000000 MOV eRe tao pacs1 (R ) ;LOAD RMCS1 
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4270 040666 
4271 040670 
4272 040676 


4276 040716 

427 

4278 040720 

4279 

4280 

4281 040726 

4282 040726 
732 


4283 040736 
4284 


012702 
012760 
018780 


00530 
00137 


012760 


000003 


141001 
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RECALIBRATE TEST 


;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
MOV #3,R2 


70$: 
MOV #DMD'MUR!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
MOY #DMD i MUR! DBEN. RAMI (RO) ZLOAD RMMR1 
BNE 70$ 


3SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD! MUR! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 


zSTEP 2 CLOCKS AND VERIFY GO IS RESET 
MOV #2,Re 


80$: 
MOV #DMD ! MUR! DBEN! MDF ! DBCK,RMMR1 (RO) :LOAD RMMR1 
Moy #DMD MUR: DBENIMDF ,RMPRY (RO) ZLOAD RMR j 
BNE 80$ 
MOV RMCS1(RO) ,SBDDAT :STORE RMCS1 AT SBDDAT 
BIC #°CGO, SBDDAT 
MOV RO, $BDADR 
CLR $GDDAT 
EMT 242 


90$: MOV #100$,SLPERR sCHANGE LOOP ON ERROR ADDRESS 


iVERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 
sie wR PC, SETVV :G0 SET VOLUME VALID 
BK 116$ *BRANCH TO 110$ IF NO ERROR 
JMP 330$ 


NABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


:E 

110$: 

MOV ADMD! MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMER1 


MOV RMER2 (RO “LOAD RMER2 
MOV #RECAL !GO,RMCS1 (RO) SLOAD RMCS1 
STEP THE COMMAND EQUENCER 


120$: 
MOV #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
mov #DND | MUR !DBEN. RAPT (RO) SLOAD RMAR1 
BNE 120$ 

:VERIFY THAT OPI IS SET | 
MOV RMER1 (RO) ,SBDDAT :STORE RMER1 AT SBDDAT 
BIC #°COPI,SBODAT 


1 

MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
MOV #OPI ,SGDDAT 


ao 
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RNBA SEQ 0185 

2 RECALIBRATE TEST 

4307 041054 104243 EMT 243 

4309 041056 012737 041064 001124 130$: MOV #150$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 

4317 “VERIFY ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS) 

4 le 041064 150S: 

4313 041 004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
041070 000403 BR 160$ SBRANCH TO 160$ IF NO ERROR 
041072 104 EMT 

4314 041074 000137 041664 JMP 330$ 

4 16 “ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

4317 041100 160$: 

4318 041100 012760 041401 00002 MOV #DMD | MUR! DBEN!MOC RMMR1 (RO) ;LOAD RMMR1 

4319 041106 012760 000014 MOV »RMER] (ROD ;LOAD RMER1 

4320 061114 012760 000042 MOV 2(RO) LOAD RMER2 

4321 041122 012760 000007 000000 MOV HO ARERZCR RMCS1(RO) ;LOAD RMCS1 

1358 STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 

4326 041130 012702 000015 MOV #13. ,R2 

4325 041134 170$: 
041134 012760 141401 000024 MOV #DMD ! MUR! DBEN! DBCK !MOC , RMMR1 (RO) :LOAD RMMR1 

4326 041142 012760 041401 000024 MOV #DMD ' MUR! DBEN!MOC ,RMMAI (RO) sLOAD RMAR1 

4327 041150 005302 DEC Re 

4328 041152 001370 BNE 170$ 

4330 :DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 

4331 041154 012760 041001 000024 MOV #DMD ! MUR ! DBE *L 

4332 041162 012760 041401 000024 MOV #DMD ' MUR! DBEN!MOC ,RMMR1 (RO) ;LOAD RMMR1 

4334 zSTEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 

4335 041170 012702 000003 v #3,Re 

4336 041174 180$: 

4337 041174 012760 141401 000024 MOV #DMD 'MUR ! DBEN!MOC ! DBCK,RMMR1 (RO) LOAD RMMR1 

4338 041202 012760 041401 000024 MOV #DMD ' MUR! DBEN!MOC -RMMR{ (RO) sLOAD RMAR1 

4339 041210 005302 DEC R2 

4340 041212 001370 BNE 180$ 

434 :VERIFY ATA IS SET 

4343 041214 016037 900012 00114 MOV RMDS (RO) SBDDAT :STORE RMDS AT SBDDAT 

4344 O4i2 2 042737 077777 00114 BIC #°CATA, SBDDA 

4345 041 001011 BNE 19 

4346 04123 012737 100000 001140 MOV #ATA, SGDDAT 

4347 041240 01 3 001136 MOV RO, SBDADR 

4348 041244 062737 000012 001136 ADD #RMDS , SBDADR 

4349 041252 104244 EMT 244 

4331 041254 012737 041262 001124 190$: MoV #200$,$LPERR | ; CHANGE LOOP ON ERROR ADDRESS 

435 “VERIFY THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP 

4354 041263 200$: 

4355 041262 004737 054732 JSR PC .SETWV 360 SET VOLUME VALID 
O412 0004 0 BR 216 *BRANCH TO 210$ IF NO ERROR 

4356 1272 000574 BR 330$ 

4358 


zENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
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ALIBRATE 


01276 
i 
127 

012702 
01 768 


Hs 


ed sd 
00007 


000015 
141401 
041401 
041001 
000007 


141001 
041001 


000000 
177776 


000001 
001136 


000024 


000024 
000024 


001142 
001142 


001140 


000024 


001124 


210$: 
MOV ADMD! MUR! DBEN! MOC, RMRT CR (RO) ;LOAD RMMR1 
MOV #0 .RME -RMER] (RO) 
MOV (RO) :LOAD ARE BME RD 
MOV OPEC con RMCS1(R ;LOAD RMCS1 
STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
220$: ta 
MOV #DMD ! MUR! DBEN! MOC ! DBCK ,RMMR1 (RO) 
mov FOND | MUR!DBEN!MOC .RAPIR| (RO) :LOAD RMAR1 
BNE BS 0s 
;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CY CYLINDER 0 
MOV #DMD!MUR'DBEN,RMMR1(RO) ;LOAD RMMRI 
STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
ie MOV #7,R2 
v #DMD'MUR'DBEN!DBCK.RMMR1(RO) — ; LOAD RMMR1 
MOY #DMD MUR !DBEN, SRMMRI(RO) ;LOAD RMAR1 
BNE 3 0$ 
:VERIFY THAT GO IS STILL SET 
MOV RMCS1(RO), SEDDAT zSTORE RMCS1 AT SBDDAT 
BIC on C60, SBDDAT 
BNE 4 
MOV #G0, $GDDAT 
MOV RO, $BDADR 
EMT 248 
SET SEEK INCOMPLETE ERROR 
#DMD'MUR!DBEN!MSER,RMMR1(RO) LOAD RMMRI 
:STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
wie MOV #3,R2 
MOV ADMD! MUR !DBEN!MSER! DBCK ,RMMR1 (RO) :LOAD RMMR1 
mov #DND! MUR DBEN!MSER RAPIR (RO) sLOAD RMAR1 
BNE 250$ 
MOV RMCS1(RO) ,SBDDAT :STORE RMCS1 AT SBDDAT 
BIC #°CG0, SBDDAT 
MOV RO, $BDADR 
CLR S6BDAT 
EMT 
260$: MOV wobegigies :CHANGE LOOP ON ERROR ADDRESS 
VERIFY THE TAG BUS DURING RECALIBRATE 
"JSR PC, SETVV :60 § SET T VOLUME VALID 
BR 3163 10$ IF NO ERROR 


;LOAD RMMR1 


SEQ 0186 
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IBRATE TEST 
1 MT 
3 do0ess BR 3308 


sENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


36 $10$: 
36 012760 1401 000024 MOV #DMD ! MUR ! DBEN!MOC ,RMMR1 (RO) :LOAD RMMR1 
44 01 760 000014 MOV »RMER1(RO)  ; LOAD RMER1 
38 0127 00004 MOV R2(RO) ELOAD RMER2 
gt 760 000007 Hint MOV #RECAL !GO,RACS1 ( ) sLOAD RMCS1 
566 012702 041666 MOV #400$,R sINITIALIZE TABLE POINTER 
~ gVERIFY TAG BUS ACCORDING TO TABLE 
572 016037 000040 901142 MOV RMMR2 (RO) , SBDDAT sSTORE RMMR2 AT SBDDAT 
600 042737 150000 00114 BIC #ROA!ROB! TST, SBDDAT 
606 021237 001142 CMP (R2) , SBDDAT 
612 001411 BEQ 
614 011237 001140 MOV (R2) ,SGDDAT 
620 010037 001136 MOV ,SBDADR 
4 062737 000040 001136 ADD ARMMR2 , SBDADR 
632 104247 EMT 24 
634 000413 BR 330$ 
“ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
636 $20$: 
636 062702 000002 ADD #2,R2 
642 00571 TST (RE) 
644 100407 BMI 330$ sEXIT IF ENTRY NEGATIVE 
sSTEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
646 012760 151001 000024 MOV ADMD ! DBEN! MUR ! MOV ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
654 012760 041401 000024 MOV #DMD | DBEN! MUR! MOC -RMMRI (RO) ZLOAD RMAR1 
662 000743 BR 315$ 
664 000416 330$: BR 500$ : JUMP OVER TABLE 
oak {TABLE OF TAG BUS CONTROL AND BIT VALUES 
666 001777 .WORD 1777 :BUS BITS AT HIGH IMPEDANCE STATE 
670 001777 “WORD 1777 
672 006100 “WORD CC!CH!BB06 :CONTROL BITS ENABLED, BIT 6 ON 
674 006100 “WORD (CC!CHi 
676 926100 "WORD  TAG!CC!CH'BBO6 ;TAG COMES ON 
700 026100 "WORD TAG!CC!CH'BB06 
702 926100 "WORD TAG!CC!CHiBB 
704 0261 “WORD TAG!CCiCHi 
706 926100 “WORD TAGICCiCHi 
710 026100 “WORD TAG!CC'CHiBBO6 
fle 906100 -WORD CC CHtBB06 zTAG GOES OFF 
716 iS bedg “WORD i558 :CONTROL BITS DISABLED 
4462 041720 177777 .WORD -1 ZEND OF TABLE 
4464 041722 500$: _ sEND OF TEST 
4465 
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SeTEST 113 SEEK TEST 
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SEQ 0188 
ee ee eee eta 20+ eee 
‘ sco :SCOPE CALL 
MOV ESTACK P ;LOAD THE STACK POINTER 
MOV $BASE *RO = UNIBUS ADDRESS 
MOV TSTQUE ,R *R1 = SOINTER TO DEVICE 
MOV #113, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


sVERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 


JSR Pc SETWV 760 SET VOLUME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 


EMT 

JMP 330$ 
sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS. AND LOAD SEEK COMMAND 

ADMD !MUR!DBEN,RMMR1(RO) :LOAD RMMR1 

MOV #0, RMDA(RO) ZLOAD RMDA 

MOV #0.RMDC (RO) [LOAD RMDC 

MOV #0 ,RMERI (RO) LOAD RMER1 

MOV RMER2(RO) LOAD RMER2 

MOV pSEericd. RMCS1(RO) 3LOAD RMCS1 


zSTEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS) 
MOV #2,R2 


20S: 
MOV #DMD'MUR!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
MOY #DMD MUR !DBEN. SRMMRI(RO) ;LOAD RMMR} 
BNE 3 $ 


;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
foe i an oRMAR1 (RO) sLOAD RMMR1 


MOV #DMD ! DBEN! DBCK ,RMMR1 (RO) 
MoV #DMD!DBEN. |RMAR1 (RO) 
BNE 


30$: 


sLOAD RMMR1 
ZLOAD RMAR1 


sVERIFY THAT OPI IS $ 


MOV RMER! FRO) SBDDAT :STORE RMER1 AT SBDDAT 
BIC scar 1'sabDA 
BOY 1, $GDDAT 
MOV HOPI S600 
ADD meh R1, SEDADR 
EMT 
40$: MOV 8b ope :CHANGE LOOP ON ERROR ADDRESS 


3VERIFY THAT SEEK ABORTS DURING EXECUTION 
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13. SSEK TEST 
t313 oe 13g 737 054732 ay: JSR PC, SETVV :GO SET VOLUME VALID 
04 is 0004 03 BR 608 SBRANCH TO 60$ IF NO ERROR 
4513 042164 000137 043400 JMP 330$ 
4515 ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
416 “ADDRESS, AND LOAD SEEK COMMAND 
451 042170 60$: 
4518 0421 012760 1001 900024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
4519 042176 0127 $e 0800 MOV #0, RMDA(RO) sLOAD RMDA 
4320 04 04 12760 900000 000034 MOV #0.RMDC(RO SLOAD RMDC 
4521 12 012760 000014 MOV #0.RMER1(RO) § :LOAD RMER1 
430¢ 042220 012760 000000 000042 MOV #O.RMER2(RO) : LOAD RMER2 
43 3 042226 012760 000005 000000 MOV #SEEK!GO,RMCS1(RO) 3LOAD RMCS1 
4525 sSTEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
4 6 042254 012702 000003 ate MOV #3,R2 
4528 042240 012760 141001 000024 “MOVs DMD !MUR!DBEN!DBCK,RMMR1(RO) LOAD RMMR1I 
4529 042246 012760 041001 000024 MOV #DMD ‘MUR! DBEN,RMMR1(RO) :LOAD RMAR1 
4530 042254 005302 DEC R2 
4931 042256 001370 BNE 70$ 
1238 SET DRIVE fault TO CAUSE ABORT CONDITI 
4954 042260 012760 041101 000024 #DMD ! MUR! DBEN! MDF ,RMMR1 ORO) :LOAD RMAR1 
4536 sSTEP 2 CLOCKS AND VERIFY GO IS RESET 
4937 942 $6 012702 000002 vis MOV #2,Re 
3 tg 012760 141101 000024 "mov ADMD ! MUR! DBEN! MDF ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
4539 04 012760 041101 000024 MOV #DMD ! MUR 'DBEN! MDF .RMMRi (RO) ZLOAD RMARI 
4540 042306 $302 DEC R2 
4541 04231 137 BNE 80S 
4542 04231 160 7 900000 001142 MOV RMCS1(RO) ,SBDDAT :STORE RMCS1 AT SBDDAT 
4543 04 04 7? 177776 00114 BIC #°CGO, SBDDAT 
4544 04 6 001405 BEQ 
4545 042330 010037 001136 MOV RO, SBDADR 
4546 042334 005037 001140 CLR SBDAT 
4947 042340 104251 EMT 251 
4949 042342 012737 042350 001124 90$: MOV #100$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
4551 “VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 
495¢ 04235 ions. 
4553 042350 004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
04 334 9004 03 BR 116$ [BRANCH TO 110$ IF NO ERROR 
4554 be53e6 000s? 043400 JMP 330$ 
4556 ; ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
4997 aa ;ADDRESS, AND LOAD SEEK COMMAND 
4559 7 364 127 1001 4 MOV #DMD MUR DBEN, RMMRI(RO) :LOAD RMMR1 
4560 127 MOV »RMDA(RO) sLOAD RMDA 
4561 0426 127 MOV *RMDC (RO) ‘tOAD RMDC 
4562 042406 012760 14 MOV *RMERI(RO) LOAD RMER1 


-a- 


Saint 


“VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS) 
4586 04252 150$: 
4587 042522 004737 054732 JSR PC,SETVV :G0 SET VOLUME VALID 
042526 000403 BR 166$ *BRANCH TO 160$ IF NO ERROR 
042530 104000 EMT 
4588 042532 000137 043400 JMP 330$ 
— 4590 sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
4591 “ADDRESS, AND LOAD SEEK COMMAND 
4592 042536 160$: 
4593 042536 012760 041401 000024 #DMD ! MUR! DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR1 
459% 042544 012760 000000 MOV #0,.RMDA(RO) :LOAD RMDA 
4595 042552 012760 000000 000034 MOV #0.RMDC (RO) [LOAD RMDC 
4596 042560 912760 000000 000014 MOV #0.RMER1(RO) LOAD RMER1 
4597 042566 012760 000000 000042 MOV #O.RMER2(RO) — :LOAD RMER2 
4998 042574 012760 000005 000000 MOV #SEEK!GO,RMCS1(RO) ;LOAD RMCS1 
4600 sSTEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
4601 042602 012702 000015 MOV we 
4602 042606 170$: 
042606 012760 141401 000024 MOV #DMD ! MUR ! DBEN! DBCK !MOC , RMMR1 (RO) 
4603 614 012760 041401 000024 MOV #DMD ' MUR 'DBEN! MOC ,RMMRI (RO) ZLOAD RMAR 
4604 042622 005302 DEC Re 
4605 042624 001370 BNE 170$ 
1606 sDROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 
4608 042626 012760 041001 000024 V {MUR ! BEN, : 
4609 042634 012760 041401 000024 MOV #DMD | MUR 'DBEN!MOC ,RMMR1 (RO) sLOAD RMMR1 
4611 sSTEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
4612 042642 012702 000003 ieat MO waRS 
4614 b4 646 012760 141401 000024 MOV #DMD ! MUR! DBEN! MOC ! DBCK ,RMMR1 (RO) ” 
4615 042694 012760 041401 000024 MOV #DMD'MUR'DBEN'MOC,RMMRI(RO) -  ;LOAD RMARI 
4616 042662 005302 DEC R2 


I 15 


;STORE RMER1 AT SBDDAT 
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13. SEEK TES 

4563 042414 0127 MOV #0,RMER2(RO) —_: LOAD RMER2 

4364 vere} Big tid ft tint MOV #SEEK!GO,RMCS1(RO) ;LOAD RMCS1 
4366 :STEP THE COMMAND sequ NCER 

4367 0 ie 012702 000017 cone MOV #15.,R 

4369 042434 012760 141001 000024 “mov #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) 

45 04 442 012760 041001 000024 MOV #DMD'MUR'DBEN,RMMRI(RO) ;LOAD RMMA1 
4571 04245 005302 DEC Rg 

437¢ 042452 001 BNE 120$ 

20% ;VERIFY THAT OPI IS SET 

4575 042454 016037 000014 901142 MOV RMER1 (RO) ,SBMDAT 

4976 04 462 042737 157777 00114 BIC #*COPI , SBDDAT 

470 001011 BNE 130$ 

4578 042472 010037 001136 MOV RO, $BDADR 

4579 042476 062737 000014 001136 ADD #RMER1, SBDADR 

4580 042504 012737 020000 001140 MOV #OPI ,SGDDAT 

4581 042512 104252 EMT 252 


45 
436s 042514 012737 042522 001124 1308: MOV #150$,,SLPERR 


3CHANGE LOOP ON ERROR ADDRESS 


;LOAD RMMR1 


SEQ 0190 


am 


J 15 


CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-96 
T1113. SEEK TEST 
4617 042664 001370 BNE 180$ 
i819 04 016037 12 00114 core nov - st TDS(RO) SBDDAT :STORE RMDS AT SBDDAT 
1 vers 74 042737 Oo00rg 00114 BIC #°CATA, SBDDA 
¢ 04 02 001011 BNE 1 
704 012737 1 001140 MOV #ATA, SGDDAT 
4 04 712 010037 0011 MOV RO, SBDADR 
5 042716 062737 001136 ADD #RADS , SBDAD 

462 042724 104253 EMT 253 

4608 042726 012737 042734 001124 190$: MOV #200$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 

4630 “VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP 

4631 042734 200S: 

4632 042734 004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
042740 000403 BR 216 [BRANCH TO 210$ IF NO ERROR 
042742 104000 EMT 

4633 042744 000137 043400 JMP 330$ 

4635 ENABLE | DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 

4656 ae ZADDRESS AND LOAD SEEK COMMAND 

4638 042750 012760 041401 000024 MOV #DMD ! MUR! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 

4639 042756 012760 000000 000006 MOV #0,RMDA(RO) :LOAD RMDA 

0 042764 012760 000000 000034 MOV #0. RMDC (RO) [LOAD RMDC 

4641 042772 012760 000000 000014 MO #0 ,RMERI (RO) [LOAD RMER1 
04 012760 000000 000042 MOV #0.RMER2(RO) LOAD RMER2 

4643 043006 012760 000005 000000 MOV #SEEK!GO,RMCS1(RO) [LOAD RMCS1 

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 

4646 043014 012702 000015 

4647 04302 220$: 

4648 043020 012760 141401 000024 ADMD !MUR! DBEN! MOC ! DBCK ,RMMR1 (RO) >LOAD RMMR1 

4649 043026 012760 041401 000024 MOV #DMD I MUR !DBEN!MOC. “RMMARA (RO) ZLOAD RMAR1 

4650 043034 005302 DEC 

4631 043036 001370 BNE 5 0s 

1826 :DROP ON CYLINDER TO RESET LATCH, LEAVE ON CY CYLINDER 0 

4654 043040 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

4656 STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 

4657 043046 012702 000007 aT RS 

4658 043052 230$: 

4659 043052 012760 141001 000024 MOV #DMD'MUR'!DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 

4660 043060 012760 041001 000024 MOV TDD iMURiDBEN. RAMA (RO) :LOAD RMAR1 

4661 043066 005302 DEC R 

4662 043070 001370 BNE 230$ 

466 

4664 :VERIFY THAT GO IS STILL SET 

4665 943072 016037 900000 00114 MOV RMCS1(RO) sSBDDAT :STORE RMCS1 AT SBDDAT 
0431 042737 177776 00114 BIC #°CGO, SBDDA 

1o86 3106 901006 BNE 4 

4668 043110 0127 1 001140 MOV #60,$ SGDDAT 

4669 043116 010037 ope 10 MOV RO Sep 

4670 043122 104254 EMT é 
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S67 SEEK INCOMPLETE ERROR | | 
012760 041201 000024 "MOV #DMD!MUR!DBEN!MSER,RMMR1(RO) LOAD RMMR1 
zSTEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 

MOV #3,R2 


012702 000003 aa 
012760 141201 900024 "MOV #DMD ! MUR! DBEN!MSER! DBCK ,RMMR1 (RO) -LOAD SMMR1 
912760 041201 000024 MOY #DND | MUR!DBEN/MSER, RAR (RO) ZLOAD RMAR1 
Sota? 0114 BOY oars (RO) SBDDAT :STORE RMCS1 AT SBDDAT 
$1893! 900000 901125 BIC #°CGO, SBDDAT ‘ 
001405 BEQ 
010037 001136 MOV RO, SBDADR 
005037 001140 CLR SGbDAT 
104255 EMT 255 
012737 043220 001124 260$: MOV #300$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
012703 000001 MOV #1,R3 SINITIALIZE CYLINDER ADDRESS 
VERIFY THE TAG BUS DURING SEEK 
004737 054732 PC, SETVV 360 SET VOLUME VALID 
000402 BR 310 *BRANCH TO 310$ IF NO ERROR 
04000 EMT ae 
000463 BR 330$ 
ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS AND LOAD SEEK COMMAND 
012760 041401 000024 * mov #DMD ! MUR ! DBEN!MOC ,RMMR1 (RO) ZLOAD RMMR1 
012760 000000 000006 MOV #0,RMDA(hO) ;LOAD RMDA 
010360 000034 MOV R3.RMDC(RO) LOAD 
012760 000 MOV #O0.RMER1(RO)  :LOAD RMER1 
012760 000000 000042 MOV #O.RMER2(RO) —: LOAD 2 
012760 000005 000000 MOV #SEEK !GO,RMCS1(RO) sLOAD RMCS1 
012702 043414 MOV #400$,R2 zINITIALIZE TABLE POINTER 
VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 
016037 000040 001142 “mov RMMR2(RO) , SEDDAT :STORE RMMR2 AT SBDDAT 
042737 150000 001142 BIC #ROA!ROB! TST, $BDDAT 
011037 001140 MOV (R2) ,SGDDAT 
050337 001140 BIS R3,$GDDAT z0R CYLINDER ADDRESS IN 
023737 001140 001142 CMP SGDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED 
001407 BEQ 0$ [BRANCH IF TAG BUS OK 
010037 001136 MOV RO, $BDADR 
062737 000040 001136 ADD ARMMR2 , SBDADR 
104056 EMT 56 
00041 BR 30$ ; 
jADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
62702 000002 “ADD #2,.R2 
0571 TST (8) 
100407 BMI 330$ sEXIT IF ENTRY NEGATIVE 
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13. ‘SEEK TEST 
47246 
67205 sSTEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
47 043368 012760 151001 000024 MOV ADMD ! DBEN! MUR ! MOV ! DBCK ,RMMR1 (RO) *LOAD RMMR1 
4727 043370 012760 041401 000024 MOV #DMD ' DBEN' MUR!MOC.RMMA1 (RO) ZLOAD RMAR1 
4738 043376 000740 BR 315$ 
1385 “REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E., 1.2.4... 
4731 043400 $30$: 
arse 043400 006303 ASL R3 :SHIFT TO NEXT CYLINDER 
4733 043402 020327 002000 CMP R3,41024. 
4734 043406 103007 BHIS 340$ sEXIT IF WAS DONE 
4735 043410 000703 BR 300$ [TEST NEXT CYLINDER 
4736 043412 000416 340$: BR 500$ JUMP OVER TABLE 
738 -TABLE OF TAG BUS CONTROL AND BIT VALUES 
4739 043414 400$: 
4740 043414 001777 .WORD 1777 :BUS BITS AT HIGH IMPEDANCE STATE 
4741 043416 001777 “WORD 1777 
47he 043420 000 “WORD CC sCONTROL BITS ENABLED, BIT 6 ON 
4743 043422 000 “WORD (CC 
4744 043424 024000 “WORD TAG!CC ;TAG COMES ON 
4745 043426 024000 "WORD TAG!CC 
4746 043430 024000 “WORD TAG!CC 
4747 043432 024000 “WORD TAG!CC 
8 043434 024000 “WORD TAG!CC 
4749 043436 024000 "WORD TAGICC 
4750 043440 004000 “WORD CC :TAG GOES OFF 
4751 043442 004000 “WORD CC 
473e 043444 001777 “WORD 1777 :CONTROL BITS DISABLED 
4754 043446 177777 .WORD =1 ZEND OF TABLE 
4756 043450 500$: ZEND OF TEST 
4758 {RARER ARARAERERREREREREREREERAREEEEEERERRERRERERERRRRRRRRRRRRRER 
TRTEST 114 SEARCH TEST 
RARER EREEEERERRAEEREERERAKEKREKEEREEAEERREREERREREEEE 
043450 781114: 
043450 000004 :SCOPE CALL 
043452 000240 
043454 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
043460 013700 001276 MOV $BASE, RO, ‘RO = UNIBUS ADDRESS 
043464 013701 001466 MOV TSTQUE,R *R1 = POINTER TO DEVICE 
sora 043470 012737 000114 001226 MOV Wie sttstn *:SET TEST NUMBER IN APT MAIL BOX 
4760 
4761 sVERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 
4763 043476 004737 054732 JSR PC, SETVV :G0 SET VOLUME VALID 
043502 000403 BR 108 BRANCH TO 10$ IF NO ERROR 
043504 104000 EMT 
4764 043506 000137 045544 JMP 330$ 
4766 sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
6 “ADDRESS, AND LOAD SEARCH COMMAND 


47 
4768 043512 10$: 
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Tis SEARCH TEST 


$768 ek Ta 4 7 041001 00024 MOV #DMD 'MUR!DBEN, RMR (RO) ;LOAD RMMARI 
0 04 5 12760 000000 0000 MOV #0, RMDA(RO) :LOAD RMDA 
4771 043526 012760 000000 0000 MOV #0. RMDC (RO) [LOAD RMDC 
4772 04 043534 012760 000000 000014 MOV #0. MERI (RO) [LOAD RMER1 
4773 043542 012760 000042 MOV ER2(RO) —_:LOAD RMER2 
477 043550 012760 opooSs 000000 MOV SSEAREHIGO. RMCS1(RO) §;LOAD RMCS1 
4776 STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS) 
4777 043556 012702 000002 MOV #2,Re 
4778 043562 20S: 
043562 012760 141001 000024 MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
779 043570 012760 041001 000024 MOV #DMD ‘MUR! DBEN,RMMR1 (RO) ;LOAD RMARI 
4780 043576 005302 DEC R2 
4781 043600 001370 BNE 20$ 
4783 ;DROP aa en AND STEP COMMAND SEQUENCER (2 CLOCKS) 
4784 043602 012760 040001 000024 #DMD ! DBEN, RMMR1 (RO) :LOAD RMMR1 
4785 043610 012702 000002 wae MOV #2,R2 
043614 013768 140001 000024 MOV #DMD ' DBEN! DBCK,,RMMR1 (RO) sLOAD RMMR1 
4787 043622 012760 040001 000024 MOV #DMD ' DBEN, RMMRi (RO) ZLOAD RMMR1 
04 005302 DEC R2 
4789 043632 001370 BNE 30$ 
sVERIFY THAT OPI IS SET 
4792 043634 016037 000014 00114 MOV RMER1(RO), = sSTORE RMER1 AT SBDDAT 
4793 043642 042737 157777 00114 BIC #*COPI 1,$BDDA 
043650 001011 BNE 40 
4795 043652 012737 020000 001140 MOV #OPI , SGDDAT 
04 010037 001136 MOV RO, SBDADR 
04 062737 000014 001136 ADD #RMER1, SBDADR 
4798 043672 104257 EMT 257 


4 
) 043674 012737 043702 001124 40S: MOV #50$,SLPERR :CHANGE LOOP ON ERROR ADDRESS 


4802 “VERIFY THAT SEARCH ABORTS DURING EXECUTION 
4803 043702 50$: 
4804 043702 004737 054732 JSR. —«- PC, SETVV :G0 SET VOLUME VALID 
3706 000403 BR 60$ [BRANCH TO 60$ IF NO ERROR 
043710 104000 EMT 
4805 043712 000137 045544 JMP 330$ 
4807 sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
4808 “ADDRESS, AND LOAD SEARCH COMMAND 
4809 043716 60S: 
4810 043716 012760 041001 000024 MOV #DMD'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
4811 045724 012760 000000 000006 MOV #0,RMDA(RO) sLOAD RMDA 
4812 043732 012760 000000 000034 MOV #0.RMDC (RO) LOAD RMDC 
4813 043740 012760 000000 000014 MOV 40. RMER (RO? :LOAD RMER1 
4814 043746 012760 000000 000042 MOV *“RMER2(RO) OAD RMER2 
i316 043754 012760 000031 000000 MOV OSEARTR iGo. RMCS1~RO) LOAD RMCS1 
481 ;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
4818 043762 012702 000003 a MOV #3,R2 
4820 043766 012760 141001 000024 MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO)  ; LOAD RMMR1 
4821 043774 012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMAR1 
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T114 SEARC 


88 Sti 


ede 
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FEFEEEE 


ss 


Bs 
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>? ay at > ot 
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801370 


012760 


012702 


0 013760 
012760 


000024 


00084 


o0t18s 
00114 


001124 


000024 
000006 
000034 
000014 
000042 
000 


BNE MO 


3SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD! MUR! DBEN! MDF ,RMMR1 (RO) 


zSTEP 2 CLOCKS AND VERIFY GO IS RESET 
MOV #2,Re 


3LOAD RMMR1 


' 80S: 


MOV #DMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


mov #DMD MUR: DBENMDF .RAPRI (RO) ZLOAD RMMR1 
BNE 80$ 

MOV RMCS1(RO) ,SBDDAT sSTORE RMCS1 AT SBDDAT 
BIC #°CGO,$BDDAT 


MOV RO, SBDADR 
CLR SGDDAT 
260 


3(THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED 
;DURING DATA COMMAND TESTS) 


90$: MOV #100$ ,SLPERR sCHANGE LOOP ON ERROR ADDRESS 
ivealey OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


JSR PC, SETVV 360 SET VOLUME VALID 
BR 110$ SBRANCH TO 110$ IF NO ERROR 


EMT 

JMP 330$ 
zENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
japOness. AND LOAD SEARCH COMMAND 


MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0, RMDA(RO) ZLOAD RMDA 
MOV #0 .RMDC (RO) [LOAD RMDC 


[LOAD RMER1 
MOV #O-RMER2(RO) 3 
MOV #SEARCH!GO,RMCS1 (RO) 


sSTEP THE COMMAND SEQUENCER 
MOV #19. Re 


RMER2 
3LOAD RMCS1 


120$: 
MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
MoV DMD | MUR! DBEN, RAPIR{ (RO) :LOAD RMAR1 
BNE 120$ 
:VERIFY THAT OPI IS SET 
MOV RMER1 (RO) ,SSDDAT :STORE RMER1 AT SBDDAT 
BIC #-COPI ,SBDDAT 
BNE 130$ 
MOV RO, $BDADR 
ADD #RMER1, SBDADR 
MOV #OPI ,SGDDAT 


i ce ee cel eel cel cel eel cell eel cee cee cee ee eel 
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T114 SEARCH TEST 
4876 044240 104261 EMT 261 


o58 044242 012737 044250 001124 1308: MOV #150$ ,SLPERR ;CHANGE LOOP ON ERROR ADDRESS 


sVERIFY ATA SETS IF gaive COMPLETES SEARCH (ON CYLINDER AND 
CTOR COMPARE SETS) 


4882 44 044 50 i80$: 
004737 054732 JSR PC, SETVV 360 SET VOLUME VALID 
Oee 2 000403 BR 166$ *BRANCH TO 160$ IF NO ERROR 
044256 104 EMT 
4884 044260 000137 045544 JMP 330$ 
4886 ;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
488 ae jADL » AND LOAD SEARCH COMMAND 
ret) 42 012760 041401 000024 "mov #DMD !MUR!DBEN!MOC, RMR CR (RO) ;LOAD RMMR1 
4890 044272 012760 000000 000006 MOV #0,RMDA(RO) 3 
4891 044 012760 000000 000034 MOV #0.RMDC(RO) LOAD Roe 
4892 4306 012760 000000 000014 MOV #0. RME (RO [LOAD RMER1 
4893 044314 012760 000000 000042 MOV #0.RMER2(RO) —_:LOAD RMER2 
4894 044322 012760 000031 000000 MOV WSEARCH!GO,RMCS1(RO) |; LOAD RMCS1 
4896 :STEP COMMAND SEQUENCER TC FIRST ON LATCH TEST (17 CLOCKS) 
4897 044330 012702 000021 MOV #17.,R 
4898 044334 170$: 
044334 012760 141401 000024 MOV #DMD 'MUR !DBEN! DBCK! MOC, RMMR1 (RO) sLOAD RMMR1 
4899 044342 012760 041401 000024 MOV #DMD ! MUR !DBEN/MOC ,RMMRI (RO) ;LOAD RMAR1 
4900 044356 005302 DEC R2 
4901 044352 001370 BNE 170$ 
490 sDROP ON CYLINDER TO RESET LATCH,AND RAISE INDEX PULSE 
4904 :TO SET FORMAT CHANG 
4905 044354 012760 041005 000024 MOV WOMB IMUR! DBEN!MI, RMMR1 (RO) ZLOAD RMMR1 
4907 sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 
4908 044362 012760 051401 000024 MOV ADMD 'MUR ! DBEN!MOC !MSEN, RMMR1 (RO) ;LOAD RMMR1 
4910 STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
4911 044370 012702 000002 v #2,Re 
4912 044374 180$: 
4913 044374 012760 151401 000024 MOV #DMD'MUR'DBEN!MOC!MSEN!DBCK,RMMR1(RO)  ;LOAD RMMR1 
4914 044402 012760 051401 000024 MOV #DMD ' MUR !DBEN!MOC 'MSEN, RMMR1 (RO) [LOAD RMMR1 
4915 044410 00530 DEC R 
4916 044412 00137 BNE 180$ 
4918 sFORCE SECTOR COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE 
1398 044414 012760 051403 000024 MOV #DMD!MUR!MOC!DBEN'MSEN'MSC RMMRI(RO) :LOAD RMMRI 
ie 044422 012760 051443 000024 MOV #DMD 'MUR'MOC !DBENMSEN/MSC!MS,RMMR1(RO) ;LOAD RMMR1 
535 012760 051403 000024 MOV #DMD 'MUR'MOC!DBENMSEN/MSC.RMMR1(RO) § :LOAD RMARI 
_ CLOCK SEQUENCER TO ser ATA (3 cL9 KS) 
4335 044436 012702 000003 iat #3,R = CLOCK COUNT 
acs 012760 151401 000024 "mov Ie i sb ETB RMMR1(RO)  ;:LOAD RMMR1 
4927 04445 01 760 051401 000024 MOV #09 MUR! MOC /DBEN! MSEN,RMMR 1 (RO) [LOAD RMAR1 
4928 044456 302 DEC R2 
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BNE 185$ 
:VERIFY ATA IS SET 
MO 


V RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
BIC #°CATA, SBDDAT 
BNE 1 
MOV HATA, SGDDAT 
MOV 0, $BDADR 
ADD #RMDS , SBDADR 
EMT 262 
190$: MOV #200$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 


VERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP 
" ggn PC,SETWV 360 SET VOLUME VALID 
BR 216$ [BRANCH TO 210$ IF NO ERROR 
JMP 330$ 
sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS AND LOAD SEARCH COMMAND 
MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
nov #0,RMDA(RO) ;LOAD RMDA 


#0.RMDC (RO) [LOAD RMDC 
MOV #O.RMERI1(RO) LOAD RMER1 
MOV #O.RMER2(; )) LOAD RMER2 
MOV WSEARCH!GO,RMCS1(RO) LOAD RMCS1 
STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 


2208: 


MOV ADMD ! MUR ! DBEN!MOC ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
mov FOND | MUR: DBEN!MOC , RAPT (RO) ;LOAD RMAR1 
BNE 220$ 

;DROP ON CYLINDER TO RESET LATCH. LEAVE ON CYLINDER 0 
MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 

230: 
MOV #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ;LOAD RMMR1 
Moy DMD | MUR DBEN, RAM (RO) ZLOAD RMAR1 
BNE 230$ 

:VERIFY THAT GO IS STILL SET 
MOV RMCS1(RO) ,SBDDAT :STORE RMCS1 AT SBDDAT 
BIC #°CG0, SBDDAT 
MOV #60 SGDDAT 
mov RO, $BDADR 


SEQ 0197 
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Ser SEEK INCOMPLETE ERROR 

MOV #DMD!MUR!DBEN!MSER,RMMR1(RO) LOAD RMMRI 
STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
2508: . 


MOV #DMD !MUR ! DBEN!MSER! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOY #DMD!MUR'DBENIMSER,RMMRI(RO) — LOAD RMMR1 
BNE 250$ 
MOV RMCS1(RO) ,SBDDAT sSTORE RMCS1 AT $BDDAT 
BIC #°CGO, SBDDAT 
MOV RO, SBDADR 
CLR SGDDAT 
EMT 264 
260$: MOV #265$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP 
"JSR PC, SETVV 360 SET VOLUME VALID 
BR 276$ SBRANCH TO 270$ IF NO ERROR 
JMP 330$ 
sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS. AND LOAD’ SEARCH COMMAND 
* mov ADMD !MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
MOV #0,RMDA(RO) ;LOAD RMDA 
MOV #0. RMDC (RO) [LOAD RMDC 
MOV #0.RMER1(RO) LOAD RMERT 
MOV #O.RMER2(RO) LOAD RMER2 
MOV ASEARCHIGO, RMCS1(RO) § ;LOAD RMCS1 


3STEP — seougnces TO FIRST ON LATCH TEST (17 CLOCKS) 


2758: 


MOV #DMD ! MUR! DBEN! DBCK!MOC ,RMMR1 (RO) ;LOAD RMMR1 


nov ADMD | MUR !DBEN!MOC .RAPR (RO) :LOAD RMAR1 
BNE Bes 
DROP ON, CYLINDER TO RESET LATCH, AND RAISE INDEX PULSE 
*TO SET FORMAT CHANGE FLOP 
#DMD MUR! DBEN! MI ,RMMR1 (RO) ZLOAD RMAR1 

sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 

MOV ADMD ! MUR! DBEN! MOC !MSEN, RMMR1 (RO) :LOAD RMMR1 
zSTEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
280S: ‘ 

MOV ADMD! MUR! DBEN!MOC!MSEN!DBCK,RMMR1(RO)  ;LOAD RMMR1 


MOV #DMD ' MUR! DBEN! MOC !MSEN,RMMR 1 (RO) sLOAD RMMR1 
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DEC Re 
BNE 280$ 

;VERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP 

nat MOV #4,R zR2 = CLOCK COUNT 

"MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT SBDDAT 

BIC #°CESRC, SBDDAT | 
BE *BRANCH IF SEARCH NOY ENABLED 
MOV #DMD'MUR'MOC!DBEN'MSEN!DBCK,RMMR1(RO)  ;LOAD RMMR1 
MOY #DMD MUR! MOC !DBEN!MSEN RAMA (RO) [LOAD RMMRI 
BNE $18 
BR 83$ 

282$: MOV #ESRC,SGDDAT 
MOV RO, SBDADR 
ADD #RAMR1 , SBDADR 
EMT 265 


gget ORIVE FAULT TO CAUSE ABORT CONDITION 
"(MOV #DMD! MUR! DBEN! MOC !MSEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 


zSTEP 2 CLOCKS AND VERIFY GO IS RESET 
Vv #2,R2 3R2 = CLOCK COUNT 


285$: 

MOV #DMD 'MUR! DBEN!MOC !MSEN! MDF ! DBCK ,.RMMR1 (RO) sLOAD RMMR1 

| MOY #DMD! MUR! DBENMOC IMSEN:MDF .RMMRT (RO) sLOAD RMAR1 

BNE 285$ 

MOV RMCS1(RO) ,SBDDAT zSTORE RMCS1 AT SBDDAT 

BIC #°CGO, SBDDAT 

BEG 90$ 

MOV #0, $GDDAT 

MOV RO, $BDADR 

EMT me. s 
290$: MOV #300$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 

MOV #1,R3 SINITIALIZE CYLINDER ADDRESS 
VERIFY THE TAG BUS DURING SEARCH 

= a PC, SETVV :G0 SET VOLUME VALID 
BR 316s SBRANCH TO 310$ IF NO ERROR 
BR 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
jADDRESS AND LOAD SEARCh COMMAND 


V ADMD! MUR! DBEN!MOC ,RMMR1 (RO) :LOAD RMAR1 
MOV RADA (RO) ;LOAD RMDA 

MOV R3.RMDC (RO) : RMDC 

MOV *RMERI(RO) LOAD RMER1 

MOV #O.RMER2(RO) LOAD RMER2 

MOV #SEARCH'GO,RMCS1(RO)  ;LOAD RMCS1 


"i 
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14 SEARCH TEST 


5089 fF ERRAAAAAAAAAAAAAAAAARAERERAAERAAAERAEAAEERREREREERERERERARERRAEERE 
2030 : MOV #400$,R2 sINITIALIZE TABLE POINTER 
3098 zHARDWARE ECO CHANGE TO THE PLA OF THE 
509 :CS$ BOARD. 
5094 045414 012702 000011 MOV #9. R2 [CLOCK THE SEQUENCER THRU THE FIRST 
5095 79. COMMAND SEQUENCES TO ALLOW THE PROGRAM 
209% pee ioe ?TO RUN WITH OR WITHOUT THE ECO. 
5098 045420 012760 141401 000024 MOV #DMD ! DBEN! MUR! MOC ! DBCK ,RMMAT (RO) :LOAD RMMR1 
5099 0494 6 012760 041401 000024 MOV #DMD ' DBEN! MUR! MOC, RMMA1 (RO) sLOAD RMAR1 
5100 045434 00530 DEC R2 :DONE 9. CLOCKS ? 
5101 0454 00137 BNE 128 =NO !! 
5102 045440 012702 045602 MOV #450$,R2 S INITIALIZE NEW TABLE POINTER 
51 03 33 RAERRAARAARARARRERRRERRAEERAEAAEAAAAARERARARAREEEARREEERRAERRRERREERE 
5104 
5105 VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 
5106 045444 $15$: 
045444 016037 000040 901142 MOV RMMR2 (RO) ,SBDDAT zSTORE RMMR2 AT SBDDAT 
5107 045452 042737 150000 00114 BIC #ROA! ROB! TST, S$BDDAT 
5108 04 011237 001140 (R2) ,$GDDAT 
5109 045464 050 3 001140 BIS R3,$GDDAT s0R CYLINDER ADDRESS IN 
5110 045470 023737 001140 001142 CMP SGDDAT,$BDDAT COMPARE EXPECTED AND RECEIVED 
5111 045476 001407 BEQ 320$ [BRANCH IF TAG BUS OK 
5112 045500 010037 001136 MOV RO, $BDADR 
5113 045504 062737 000040 001136 ADD ARMMR2 , SBDADR 
5114 045512 104266 EMT 
3113 045514 000420 BR 40$ 
5117 sADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
5118 045516 $20$: 
5119 045516 062702 000002 ADD #2,R2 
5120 045522 005712 TST (R2) 
3121 045524 100407 BMI 330$ sEXIT IF ENTRY NEGATIVE 
2155 sSTEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
5124 045526 012760 141401 000024 MOV #DMD !DBEN! MUR! MOC ! DBCK ,RMMR1(R :LOAD RMMR1 
5125 045534 012760 041401 000024 MOV #DMD ' DBEN! MUR!MOC -RMMAT (RO) ;LOAD RMAR1 
2126 045542 000740 BR 315$ 
5128 “REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E.. 1.2.4... 
5129 045544 330s: 
5130 045544 303 ASL R3 :SHIFT TO NEXT CYLINDER 
2131 045546 020327 002000 CMP R3,41024. 
132 045552 103001 BHIS 340$ sEXIT IF WAS DONE 
5133 045554 000671 BR 00$ S TEST NEXT CYLINDER 
3134 045556 000424 340$: BR 00$ + JUMP OVER TABLE 
5136 -TABLE OF TAG BUS CONTROL AND BIT VALUES 
5137 045560 400$: 
5138 045560 001777 .WORD 1777 :BUS BITS AT HIGH IMPEDANCE STATE 
5139 045562 001777 “WORD 1777 
5140 045564 001777 “WORD 1777 
3141 5566 001777 “WORD 1777 
16e 045570 001777 “WORD 1777 
316 045572 004000 “WORD CC :CONTROL BITS ENABLED, BIT 6 ON 
144 045574 004000 “WORD ¢C 


SEQ 0200 
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14 SEARCH TEST 
145 04557 924000 WORD TAG!CC :TAG COMES ON 
146 4 “WORD TAGICC 
147 04560 450$: ;START TABLE HERE FOR HARDWARE ECO CHANGE 
148 04560 9 4000 .WORD  TAG!CC 
149 045604 024000 "WORD TAGICC 
150 045 024000 “WORD TAGICC 
151 045610 024 “WORD TAGICC 
3136 045612 177 “WORD =1 sEND TABLE HERE FOR HARDWARE ECO CHANGE 
2134 : .WORD CC :TAG GOES OFF 
155 045614 004000 “WORD c¢ 
2136 045616 901777 “WORD 1777 :CONTROL BITS DISABLED 
sa Rass iter a tr 
3159 hrey4 001777 “WORD 1777 
2161 045626 177777 .WORD =1 ZEND OF TABLE 
3168 045630 500$: sEND OF TEST 
5165 3 {RRAARAAAAARERRERAREEEEEEREREREREREEERRERERERERREREERERRRERARERE 
S*TEST 115 SEARCH TIMEOUT TEST 
© REEEAARARARAAERARARAERERARAAEERARAAEREREERAEEAEARAEAEEERERARRRAEEEEEE 
045630 T$1115: 
045630 ScoP :SCOPE CALL 
045632 000240 NOP 
045634 o127 001100 MOV #STACK, SP LOAD THE STACK POINTER 
045640 013700 001276 MOV [RO = UNIBUS ADDRESS 
045644 013701 001466 MOV TSTQUER 7R1 = SINTER TO DEVICE 
ed 045650 012737 000115 001226 MOV #115, STESTN *;SET TEST NUMBER IN APT MAIL BOX 
5167 045656 004737 054732 JSR PC, SETVV :G0 SET VOLUME VALID 
045662 900408 BR 10$ SBRANCH TO 10$ IF NO ERROR 
045664 104 EMT 
5168 045666 000550 _ BR 90$ 
5170 jENABLE DEBUG CLOCK AND LOAD SEARCH COMMAND 
5171 045670 10$: 
3172 045670 012760 041401 000024 MOV #DMD! MUR !DBEN! MOC, RIWAR' (RO) ;LOAD RMMR1 
5173 045676 012760 000000 000014 MOV #0,RMER1(RO) LOAD RMER1 
5174 045704 012760 900000 900042 MOV #0.RMER2(RO) LOAD RMER2 
3158 pee928 919760 36 MOY BOTRADACRO)__:LOAD AMDA 
317 pi3556 012760 b00est iad MOV #SEARCH!GO, ancs1 iho) sLOAD RMCS1 
5179 EXECUTE SEARCH TO_TEST FOR ON LATCH RESET (17 CLOCKS) 
3180 045734 012702 000021 ee MOV #17. .R2 
5740 012760 141401 000024 "mov #DMD ! MUR! DBEN! MOC ! DBCK , RMMR1 (RO) :LOAD RMAR1 
182 5746 012760 041401 000024 MOV #DMD ' MUR! DBEN/MOC -RMMAT (RO) ZLOAD RMAR1 
183 045754 00530 DEC Re 
184 5756 00137 BNE 208 
186 DROP On ¢ CYLINDER TO RESET LATCH, RAISE ON CYLINDER 
3187 045760 012760 041001 900024 #DMD! MUR! DBEN, RMR (RO) gL OAD RMMR1 
188 045766 012760 041401 024 mov #DMD 'MUR' DBEN!MOC, BOC RIPRT CR ) sLOAD RMAR1 


40 


ad Pad 
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15 SEARCH TIMEOUT TEST 
189 
218 ‘ $STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 CLOCKS) 
213 045774 012702 000002 os MOV #2,R 
12760 151401 000024 MOV #DMD!DBEN'MUR!MOC!DBCK!MSEN,RMMR1(RO)  ;LOAD RMMR1 
$193 6006 012760 051401 000024 MOV #DMD | DBEN! MUR! MOC /MSEN, RMMRI (RO) [LOAD RMMR1 
194 046014 30 DEC R 
$13 046016 00137 BNE 30$ 
139 ;THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP. STEP 
5198 S THROUGH THE LOOP AND VERIFY SEARCH IS ENABLED. 
2199 0466 0 012702 000005 ae MOV 5.R2 
046024 012760 151401 000024 MOV ADMD! DBEN!MUR!MOC!DBCK!MSEN,RMMR1(RO)  ;LOAD RMMR1 
201 046032 012760 051401 000024 MOV #DMD ' DBEN! MUR! MOC |MSEN, RMMRI (RO) “LOAD RMMR1 
202 046040 016037 0000¢% O0114g MOV RMMR’1 (RO), SBDDAT :STORE RMMR1 AT S$BDDAT 
5203 046046 042737 17 00114 BIC #°CESRC, SBDDAT 
046054 001403 BEQ 50$ sBRANCH IF SEARCH NOT ENABLED 
5205 56 005302 DEC R 
946060 001361 BNE 40$ 
900414 BR $ 
5208 046064 01273 904000 001140 50S: MOV #ESRC,$GDDAT ; SETUP ERROR MSG 
5209 046072 010037 0011 MOV RO, SBDADR 
5210 046076 062737 000024 001136 ADD #RIMR1, SBDADR 
5211 046104 104265 EMT 65 
3e1¢ 046106 000440 BR $ 
361% Laat zpROP "MSEN'’ TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET. 
5216 046110 012760 041401 000024 MOV #DMD ! MUR! MOC ! DBEN, RMMR1 (RO) -LOAD RMMR1 
5217 046116 012737 070000 0015 MOV #70000,WATCH. SET WATCHDOG TIMER VALUE 
ete 046124 004777 133406 ial JSR PC, a@cLOck [START THE CLOCK 
046130 016037 14 00114 MOV RMER1(RO) , SBDDAT sSTORE RMER1 AT SBDDAT 
5219 aeers 818035 0000 ooeS BIC #°COP1,$BDDAT 
5220 046144 901017 BNE 80$ 
5221 046146 005737 001534 TST WATCH 
222 046152 001366 BNE 7 
5223 046154 004777 133360 JSR PC, aSTOPCL sSTOP THE CLOCK 
5224 046160 012737 020000 001140 MOV #OP1 ,SGDDAT [SETUP ERROR MSG 
5225 046166 910037 1136 MOV RO, SBDAD 
3206 6172 062737 14 001136 ADD #RMER1, SBDADR 
522 104267 EMT 367 
5228 04620 000402 ; BR $ 
5229 04 80S: 
ans 046204 004777 133330 JSR PC, aSTOPCL :STOP THE CLOCK 
3631 046210 90S: ZEND OF TEST 
5233 2% RAERAEARAAERAEERAERARAAREEEEERERERARRAREREEREREERARERAAAAERAERERAREEE 
S*TEST 116 DATA COMMAND TESTS (1) 
© RARER AAAAEAEARERAAAAEERERARARERAAEEAAAAARERAKERAERERERAEAAREEEKEE 
bee i 000004 t5r116: SCOPE SCOPE CALL 
046 5 900240 NOP ‘ 
046214 012706 001100 MOV #STACK, SP sLOAD THE STACK POINTER 


I 16 


CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-108 SEQ 0203 
1116 “DATA COMMAND TESTS (1) 
on 700 001276 MOV SBASE ,RO zRO = UNIBUS ADDRESS 
4 01 701 1466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
012737 116 001226 MOV #116, STESTN tISET TEST NUMBER IN APT MAIL BOX 


zVERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY 


054732 JSR PC SETVV 360 SET VOLUME VALID 
4 BR 10$ SBRANCH TO 10$ IF NO ERROR 
046244 EMT 
5 33 046246 BR 40$ 

340 “ENABLE DEBUG CLOCK AND LOAD READ COMMAND 

5241 046250 10$: 

5242 046250 012760 041401 000024 MOV #DMD ! MUR! MOC) DBEN, RIIRT CR (RO) ZLOAD RMMR1 

5243 046256 012760 000000 000014 MOV 10: 9ne -RMER (RO) :LOAD RME 

5264 O46c64 01276C 000000 000042 MOV (RO) LOAD RRR 

2645 72 012760 000000 000006 MOV SOC RMAEKGD 3LOAD RMD 

346 046300 012760 900000 000034 MOV RMDC (RO) “LOAD RDC 

5247 046306 012760 71 000000 MOV #RD!GO,RMCS1(RO)” ZLOAD RMCS1 

5249 ;STEP COMMAND SEQUENCER TO UNIT READY TEST (3 CLOCKS) 

5250 046314 012702 000003 MOV 

5251 046320 20S: 

046320 012760 141401 000024 MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 

5252 046326 012760 041401 000024 MOV #DMD ' MUR! MOC ! DBEN, RMMAI (RO) :LOAD RMAR1 

5253 0463 5302 DEC R2 

3254 046336 001370 BNE 208 

5256 ;DROP UNIT READY 

3657 046340 012760 040401 000024 MOV #DMD!MOC!DBEN,RMMR1(RO) ;LOAD RMMR1 

259 ;STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS) 

5260 046346 012702 000002 MOV #2,R2 

5261 046352 30S: 

046 338 012760 140401 000024 MOV #DMD'MOC!DBEN!DBCK,RMMR1(RO) — ; LOAD RMMR1 

5262 046 012760 040401 000024 MOV #DMD ‘MOC 'DBEN, -RIPIRT (RO) :LOAD RMMR1 

5263 046366 00530 DEC R2 , 

5264 046370 00137 BNE 30$ 

5265 046372 016037 000014 001142 MOV RMER1(RO) ,SBDDAT zSTORE RMER1 AT SBDDAT 

52 046400 042737 157777 00114 BIC #°COPI, SBDDAT 

526 001011 BNE 

5268 046410 012737 001140 MOV #OP1 ,SGDDAT 

5269 046416 010037 001136 MOV RO, SBDADR 

3870 O464ee 0627 ? 014 001136 ADD ARMER1, SBDADR 

He 104270 EMT 270 

ser 046432 012737 046440 001124 40S: MOV #50$,S$LPERR :CHANGE LOOP ON ERROR TEST 

23h “VERIFY DATA COMMAND ABORTS AT LOCATION 129 

5276 046440 50$: 

277 046440 004737 054732 JSR Pc SETVV 360 SET VOLUME VALID 
046444 00040 BR 60$ “BRANCH TO 60$ IF NO ERROR 
046446 104 EM 

5278 046450 000576 BR 150$ 


5280 
5281 046452 


> Ye DEBUG CLOCK AND LOAD READ COMMAND 


1 
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CZRNBAO RMBO DSKLS PT1 MAC 
1116: DATA COMMAND TESTS (1) 
5 82 046452 127 1401 000024 MOV #DMD ! MUR! MOC !DBEN, RMMR1 (RO) :LOAD RMMR1 
107 14 MOV »RMERI(RO) LOAD RMERI 
84 046466 1276 2 MOV sRMERZ(RO) LOAD RMER2 
85 4 012760 900006 MOV *RMDACRO) [LOAD RMDA 
2286 046502 012760 000000 0000 MOV RMDC (RO) [LOAD RMDC 
3 8 510 012760 000071 000000 MOV #RD!GO,RMCS1(RO) ;LOAD RMCS1 
5289 STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS) 
2290 sieeis 012702 000004 th MOV #4 Re 
046522 012760 141401 000024 MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMA1 (RO) :LOAD RMMR1 
5292 0465 012760 041401 000024 MOV #DMD | MUR! MOC ! DBEN,RMMRi (RO) ZLOAD RMARI 
5 6536 00530 DEC R2 
3294 046540 00137 BNE 70$ 


3SET DEVICE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD 


5 
2532 046542 012760 041501 000024 !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 


zSTEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK) 
MOV #1,R2 


6550 
5301 046554 80$ 
046554 012760 141501 000024 MOV #DMD'MUR'MOC!DBEN!MDF!DBCK,RMMR1(RO) — ;LOAD RMMR1 
530 562 012760 041501 000024 MOV #DMD!MUR'MOC!DBEN! MDF .RMMR1(RO) ;LOAD RMMR1 
5303 046570 005302 DEC Re 
3304 046572 001370 BNE 80$ 
5306 ;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
5307 “FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
3308 046574 012702 000020 ste V 16. ,R2 sMAXIMUM NUMBER OF BIT CLOCKS 
046600 012760 045501 000024 MOV #DMD'MUR'MOC!DBEN!MDF!MCLK,RMMR1(RO) LOAD RMMR1 
5310 046606 012760 041501 000024 MOV #DMD 'MUR'MOC!DBEN! MDF .RMMR1(RO) :LOAD RMARI 
2311 046614 016037 24 00114 MOV RMMR1 (RO) ,SBDDAT sSTORE RMMR1 AT SBDDAT 
a 1 046622 042737 157777 00114 BIC #*°CEBL, SBDDAT 
2313 pie8es 001014 BNE 90$ ;BRANCH IF EBL IS SET 
5315 046632 005302 DEC 
5316 046634 001361 BNE 85$ sCONTINUE BIT CLOCKS IF COUNT NOT 0 
5317 046636 012737 020000 001140 MOV #EBL ,SGDDAT 
5318 046644 010037 001136 MOV RO, SBDADR 
5319 046650 062737 000024 001136 ADD ARIMR1, SBDADR 
3320 046656 104271 EMT 71 
; : 046660 72 BR 508 
3 -STEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS) 
5324 046662 $0$: 
3325 046662 012702 000002 MOV #2,R2 
5326 046666 100$: 
5327 046666 012760 141501 000024 MOV ADMD 'MUR'!MOC!DBEN!MDF!DBCK,RMMR1(RO) — ; LOAD RMMR1 
5328 674 912760 041501 000024 MoV #DND' MUR! MOC !DBEN MDF , RAR (RO) :LOAD RMAR1 
By 046704 001370 E 100$ 
332 sABORT EBL SHOULD NOW BE INACTIVE = FORCE BIT CLOCK USING THE 
533 SMAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS) 
3334 04670 012702 000020 ae MOV #16. ,R2 ;MAXIMUM NUMBER OF BIT CLOCKS 
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*VERIFY 
120$: 


VERIFY 
130$: 


1408: 


150$: 


*VERIFY 
200$: 


* ENABLE 
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MOV #DMD'MUR'MOC!DBEN!MDF!MCLK,RMMR1(RO) — ;LOAD RMMR1 
MOY #DMD'MUR!MOC!DBEN/ MDF .RMMR1(RO) ;LOAD RMMR1 
BNE 110$ zISSUE 16 BIT CLOCKS THEN TEST 
EBL 1S NOW RESET 

MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #°CEBL,SBDDAT 

BEQ 130$ :BRANCH IF EBL IS RESET 
roe 

ADD ARIMMR 1, SBDADR 

EMT 273 

BR 150$ 

GO RESETS WITHIN 4 CLOCK CYCLES 

MOV #4 ,R2 

MOV #DMD!MUR'MOC!DBEN!MDF!DBCK.RMMR1(RO) —; LOAD RMMR1 
mov #DMD MUR {MOC IDBEN!MDF ,RMMRT (RO) ZLOAD RMAR1 
BNE 1408 

MOV RMCS1(RO) ,SBDDAT zSTORE RMCS1 AT SBDDAT 
BIC #°CGO,SBDDAT 

BEQ 150$ 

CLR SGDDAT ~- 

MOV RO, $BDADR 

EMT 274 

MOV #200$.$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS 
JSR PC, SETVV :G0 SET VOLUME VALID 

BR 216s :BRANCH TO 210$ IF NO ERROR 

BR 250$ 

DEBUG CLOCK AND LOAD DATA COMMAND 

MOV #DMD ! MUR! MOC ! DBEN, RMMA1 (RO) ;LOAD RMMR1 
MOV #0 .RMER] (RO) :LOAD RMER1 

MOV *RMER2(RO) LOAD RMER2 

MOV #0. RMDA(RO) *LOAD RMDA 

MOV #0. RMDC (RO) [LOAD RMDC 

MOV #RD!GO,RMCS1 (RO) sLOAD RMCS1 


sMOVE SEQUENCER 10 i FOR RUN AND GO AT LOCATION 130 (5 CLOCKS) 


2208: 


MOV 
MOV 
DEC 
BNE 


#DMD !MUR! MOC ! DBEN! DBCK 
#DMD ! MUR! MOC! DBEN,.RMAR 


350s 


RMMR1 (RO) 
(RO) 


;LOAD RMAR1 


3LOAD RMAR1 


SEQ 0205 
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;VERIFY RUN AND GO IS SET 
MOV 


RMMR1 (RO) , SBDDAT sSTORE RMMR1 AT SBDDAT 
BIC #cRG, »$BDDAT 


E 
MOV #RG, SGDDAT 
MOV RO, $BDADR 
ADD #RMMR1, SBDADR 
EMT 
BR 50s 
THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE 
MOV #1,R2 
MOV #DMD ! MUR !MOC ! DBEN! DBCK, RMMR1 (RO) :LOAD RMMR1 
MOY #DMD MUR !MOC !DBEN, “RMMR (RO) ZLOAD RMAR1 
BNE 240$ 
MOV RMMR2 (RO) ,SBDDAT :STORE RMMR2 AT SBDDAT 


FRRRARARAREREERARREREREREREREERERRREEREERRRERERRRERERERARRRERERR 


BIC #RQA!RQB! TAG, SBDDAT 
3THE FOLLOWING CODE WAS ADDED 
3TO ALLOW THE PROGRAM TO RUN WITH 
3OR WITHOUT THE ECO TO THE CS BOARD. 


BIC #ROQA!ROB!TAG!CH,SBDDAT ;HARDWARE ECO CHANGE ~ CC AND 
:CH TO SET AT THE SAME TIME 


[RRERARRARRRRERERE REET EERE RETR R RRR RTE AeEE eee 


MOV #CC,S$GDDAT 
CMP S$GDDAT , SBDDAT 


BEQ 

MOV af S$BDADR 
ADD RMMR2 , SBDADR 
EMT ar 


MOV #260$ ,SLPERR sCHANGE LOOP ON ERROR ADDRESS 
oo COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 145 


#144,R2 sINITIALIZE TEST LOCATION 
JSR PC, SETVV 360 SET VOLUME VALID 
BR 276$ SBRANCH TO 270$ IF NO ERROR 
BR 3208 


DEBUG CLOCK AND LOAD DATA COMMAND 


MOV #DMD ! MUR! MOC ! DBEN,,RMMR1 (RO) sLOAD RMAR1 
MOV #0,RMER1 (RO) ;LOAD RMER1 


MOV po ee Bs i 3LOAD RMER2 
MOV . (RO 3 
MOV (RO 


) [LOAD RMDC 
MOV #RD!GO,RMCS1(RO) :LOAD RMCS1 


3WAIT FOR RUN AND GO TO SET 
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DATA COMMAND TESTS (1) 


MOV #200. ,WA\CH :SET WATCHDOG TIMER VALUE 
ion JSR PC ,acLOCk “START THE CLOCK 

MOV RMMR1 (RO) , SBDDAT sSTORE RMMR1 AT SBDDAT 

BIC #°CRG,SBUDAT 

BNE 2908 

TST WATCH 

BNE 280$ 

JSR BC .asTOPcL :STOP THE CLOCK 

MOV 

MOV ety ADR 

ADD mn SBDADR 

EMT 75 

BR 20$ 
290$: 


JSR PC ,aSTOPCL STOP THE CLOCK 


sMOVE COMMAND SEQUENCER TO ABORT TEST (LOCATION 144 OR 145) 
MOV #6,R sSETUP CLOCK COUNT 
CMP Hite, R2 


BEQ 
MOV 7, of 


MOV #DMD ! MUR! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
MOV #DMD MUR! MOC !DBEN, MMR (RO) ZLOAD RMAR1 
BNE 


300$ 


3SET DRIVE FAULT TO FORCE ABORT CONDITION 
MOV #DMD!MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 


CLOCK SEQUENCER THROUGH ITS TEST FOR ABORT (1 CLOCK) 
305s MOV #1,R3 


300$: 


MOV #DMD! MUR! MOC ! DBEN! MDF ! DBCK .RMMR1 (RO) 
MOV #DMD MUR! MOC! DBENIMDF JRMMR1(RO) ;LOAD RMAR 


R3 
BNE 305$ s ISSUE 2 CLOCKS 
zABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE yee: TO 


3FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
Vv 16. ,R2 sMAXIMUM NUMBER OF BIT CLOCKS 


mint RMMR1 


306$: 
MOV #DMD! MUR! MOC ! DBEN! MDF !MCLK RMR CRO) :LOAD RMMR1 
MOV #DMD 'MUR' MOC! DBEN' MDF RMMRI(RO) ; 
MOV RWVAR 1 (RO) SBDDAT STORE ait AT S$BDDAT 
BIC #°CEBL, SBDDA 
BNE 310$ ;BRANCH IF EBL IS SET 
DEC R2 
BNE 306$ sCONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL,SGDDAT 
MOV RO. SBDADR 
ADD RMMR1, $BDADR 
310$: CMP #144, R2 


BNE 320$ 


SEQ 0207 


“Am 


T116 


5493 047656 
5494 047662 


208 047664 
549 
5498 
5499 047672 
5500 047674 
5501 th Led 


SSE 
RS 


DADA SAMA 
YYYIILEESSSSS 
SBR 
nd 
& 

N 
~ 
nN 
Nm 


wi 

b dd a dd 

wm SWweOo 
RRRRE 

NNN 

Pw 

MAO 


MOAMNMMMAVIVIVIVIVINY VIII VIVIMIVIMIUIUMIUIUIU) 
Revue ESS SESeNMMsS 
SSIKARAYS SION QUEWN =O OONO 
oo 
t=) 
N 
x 


& 
WN—o 


ore ros 000145 
00062 


012737 


054732 


760 041401 
00 


000310 
131554 


000024 
042737 137777 


001534 
131526 


040000 
o087 001136 


131476 
000021 


141401 
041401 


7 000024 . 


/_ 


CZRNBAO RM8O DSKLS PT1 MACRO ys. 00 14-JAN-82 16:33:00 PAGE 134113 ° 
DATA COMMAND TESTS (1) 


047674 001124 3208: MOV 


000024 
000014 
000042 


000034 
000000 


001140 
001136 


000024 


000024 


000024 
000024 


SEQ 0208 
MOV #145 ,,R2 

BR 2608" 

#330$ ,SLPERR 


; VERIFY ry TAG_DURING DATA COMMAND 
CLR R2 zINITIALIZE TRACK ADDRESS = 0 


;CHANGE LOOP ON ERROR ADDRESS 


330$: 
JSR PC, SETVV :G0 SET VOLUME VALID 
BR 346$ :BRANCH TO 340$ IF NO ERROR 
BR 400$ 
gENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
MOV #DMD ! MUR! MOC ! DBEN, RMPAR (RO) ZLOAD RMAR1 
MOV #0,RMER1(R ;LOAD RM 
MOV #O.RMER2(RO)  : LOAD ROE RD 
R2,RMDA(RO) SLOAD RMDA 
MOV #0.RMDC (RO) [LOAD RMDC 
MOV arb G0. RMCS1(RO) ;LOAD RMCS1 


3WAIT FOR RUN AD GO TO SET 
MOV #200. ,WATCH 


3SET WATCHDOG TIMER VALUE 
JSR PC,aCLOCck LOCK 


SSTART THE CL 


350$: 
MOV RMMR1(RO), SEDDAT sSTORE RMMR1 AT SBDDAT 
BIC #°CRG, SBDDAT 
BNE 360$ 
TST WATCH 
BNE 350$ 
JSR PC, aSTOPCL :STOP THE CLOCK 
MOV #RG, SGDDAT 
MOV RO, $BDADR 
ADD #RMMR1, SBDADR 
EMT 275 
BR 400$ 
360$: 


JSR PC,aSTOPCL :STOP THE CLOCK 
sSTEP COMMAND SEQUENCER TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS) 
370$: = 


MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MoV #DND i MUR'MOC !DBEN. RAR (RO) ZLOAD RMAR1 
BNE 370$ 
:DROP AND RAISE ON CYLINDER TO RESET | ON LATCH 
MOV #DMD ' MUR! DBEN, RMMR1 ( gL OAD RMMR1 
MOV #DMD MUR (MOC! OBEN, Nera ch :LOAD RMMR1 


FRRRAREEARRERERARREAEREREEEARARAAERERERAEARARERERERRAERARERERERER ED 


MOV #450$ ,R3 z INITIALIZE TABLE POINTER 


sHARDWARE ECO CHANGE TO THE PLA ON THE 
3CS BOARD. 
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012703 


000004 


001140 


141401 
041401 


000002 


000400 
001334 


010037 001136 


062737 
104276 
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000024 
000024 


001142 


000024 
000024 


001136 


SEQ 0209 


MOV #4 ,R3 sCLOCK THE SEQUENCER THRU THE FIRST 
;4 COMMAND SEQUENCES TO ALLOW THE PROGRAM 


?TO RUN WITH OR WITHOUT THE ECO. 
MOV ADMD ! DBEN! MUR! MOC ! DBCK ,.RMMR1 (RO) :LOAD RMMR1 
MOV #DMD 'DBEN' MUR! MOC,RMMR1 (RO) ZLOAD RMMR1 

:DONE 4 CLOCKS ? 


372$ 3NO !! 
#475$ ,R3 s INITIALIZE NEW TABLE POINTER 


e 
f ERRRR AERA ARRERAERARERERERERERRERERERERERRERERERERERRERERRRREEE 


gyERIFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2 


MOV RMMR2 (RO) , SBDDAT sSTORE RMMR2 AT SBDDAT 
BIC #RQA!RQB! TST, SBDDAT 


MOV (R3) , $GDDAT 
R2,R4 :GENERATE EXPECTED TAG BUS 


3728: 


WAB R4 
BIS R4,$GDDAT 


COMPARE EXPECTED AND RECEIVED TAG BUS DATA 
ox SGDDAT , SBDDAT 


MOV #DMD !MUR!MOC ! DBEN! DBCK ,RMMR1 (RO) 
MOV #DMD ' MUR ! MOC 'DBEN,RMMR1 (RO) 


zADVANCE TO NEXT TABLE ENTRY 
ADD R3 


;LOAD RMMR1 
3LOAD RMMR1 


gSHIFT TO NEXT TRACK ADDRESS-EXIT LOOP IF DONE 
"ADD #TA1,R2 ZADVANCE TRACK ADDRESS 
CMP R2,LSTRK [DONE ALL TRACKS ? 
BHI 400$ sYES, EXIT 
BR 330$ 


gERROR ON TAG BUS DURING HEAD SEQUENCE 
"mov RO, SBDADR 


ADD #RMMR2 , SBDADR 
EMT 276 
400$: BR 500$ :JUMP OVER TABLE 
jyAple OF TAG BUS DURING HEAD SEQUENCE 
"WORD CH 
"WORD CH 
"WORD CH! TAG 
“WORD CHITAG 
475$: START TABLE HERE FOR HARDWARE ECO CHANGE 
.WORD CH!TAG 


-WORD CH!TAG 
WORD CH!TAG 


—_ 





- ie 
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ESE EA ES 


a 
oO 
OUSWN—O 


5617 
5618 030306 


5626 050346 
5627 
2068 050350 
5630 050352 
5631 
5632 


050352 


5644 
5645 050442 


9077 


001777 
177777 


.WORD CH!TAG 
“WORD <1 sEND TABLE HERE FOR HARDWARE ECO CHANGE 
WORD CH 
“WORD (CH 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
"WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
“WORD 1777 
.WORD  =1 sEND OF TABLE 
ZEND OF TEST 
FERRARA EEREREREREREERERERERAERERERREREREREERREERERERRREREEREERE 
tSTEST 117 DATA COMMAND TESTS (2) 
eg esate a niga ti ara RAC iim 
"SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV *RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 


MOV hire STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
OPI SETS IF ON CYLINDER LATCH DOESN'T RESET 


JSR PC, SETVV :G0 SET VOLUME VALID 
BR 10$ SBRANCH TO 10$ IF NO ERROR 
BR 


60$ 


| pe DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE 


MOV #DMD ! MUR! MOC ! DBEN, pag he sLOAD RMAR1I 
MOV #0,RMER1 (RO) ;COAD RM 


sk eRe 
MOV #0,,RMDA(RO) LOAD RMDA 
MOV #0; RMDC (RO) sLOAD RMDC 


mao 
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CZRNBAO wr DSKLS PT1 spe v04.00 14-JAN-82 16:33:00 PAGE 13-116 ° 
T1117 A COMMAND TESTS (2) 


MOV #RD!GO,RMCS1(RO) 
sWAIT .. _ AND GO TO SET 


;LOAD RMCS1 


#200. WATCH :SET WATCHDOG TIMER VALUE 

= mek PC,acLOCk *START THE CLOCK 

MOV RMMR1(RO), SBDDAT sSTORE RMMR1 AT SBDDAT 

BIC #°CRG, SBDDAT 

BNE 30$ 

TST WATCH 

BNE 20$ : 

JSR PC, aSTOPCL sSTOP THE CLOCK 

MOV #RG, SGDDAT 

MOV RO, $BDADR 

ADD #RMMR1 , SBDADR 

EMT 275 

BR 60$ 
30$: 

JSR PC, aSTOPCL ;STOP THE CLOCK 


STEP COMMAND SEQUENCER AND VERIFY OPI SETS (19 CLOCKS) 
40$: oe 





MOV #DMD 'MUR ! MOC ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD MUR! MOC !DBEN, RMMR1 (RO) ZLOAD RMAR1 
BNE 40$ 
MOV RMER1 (RO) , SBDDAT sSTORE RMER1 AT SBDDAT 
BIC #°COPI ,SBDDAT 
BNE 50$ BRANCH IF OPI SET 
MOV HOPE , SGDDAT 
MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
50$: MOV #60$,$LPERR CHANGE LOOP ON ERROR ADDRESS 
iVERIFY DATA COMMAND ABORTS DURING SEEK WAIT LOOP 
- PC, SETVV 360 ScT VOLUME VALID 
BR 70$ [BRANCH TO 70$ IF NO ERROR 
BR 140$ 
ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
MOV #DMD 'MUR '! MOC! DBEN, RMMR1 (RO) ;LOAD RMMR1 
MOV #O,RMERI(RO) LOAD RMER1 
MOV #0.RMER2(RO) LOAD RMER2 
MOV *RMDC(RO LOAD RDC 
MOV #0. RMDA(RO) tL 
MOV #RD!GO,RMCS1(RO)- LOAD RMCS1 


zWAIT FOR RUN & GO TO SET 
MOV 


#200. ,WATCH 3SET WATCHDOG TIMER VALUE 
208: JSR PC ,acLOck ZSTART THE CLOCK 
; MOV RMMR1 (RO) ,SBDDAT :STORE RMAR1 AT SBDDAT 


ln) oe | 


6 1 
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1117“ DATA COMMAND TESTS (2) 
5695 050740 942737 137777 001142 BIC #*CRG,SBDDAT : 
2696 50746 1017 BNE 90$ 
5697 050750 005737 001534 TST WATCH 
5698 050754 001 BNE 80$ 
2699 050756 004 130556 JSR PC, @STOPCL sSTOP THE CLOCK 
5700 990762 012737 040000 001140 MOV #RG, SGDDAT 
5701 050770 010037 001136 MOV RO, $BDADR 
2700 950774 062737 000024 001136 ADD #RMMR1, SBDADR 
5703 051002 1042 EMT 275 
5704 051004 000512 BR 140$ 
5705 051006 90S: 
ied 051006 004777 JSR PC, aSTOPCL sSTOP THE CLOCK 
5707 STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 
5708 051012 012702 MOV ie 
5709 051016 100$: 
051016 012760 MOV ADMD ! MUR! MOC ! DBEN! DBCK,.RMMR1 (RO) :LOAD RMMR1 
5710 051024 012760 MOV #DMD ' MUR | MOC | DBEN, RMMR1 (RO) ;LOAD RMAR1 
5711 051032 005302 DEC R2 
ae 051034 001370 BNE 100$ 
5714 :DROP ON CYLINDER TO RESET LATCH 
5715 051036 012760 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
5717 ;MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS) 
5718 051044 012702 MOV #31.,R2 
5719 051050 110$: 
51050 0127 MOV #DMD'!MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
5720 051056 012760 MOV #DMD ‘MUR 'DBEN,RMMR1 (RO) :LOAD RMMR1 
5721 051064 005302 DEC R2 
5722 051066 001370 BNE 110$ 
5724 sSTEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES 
5725 051070 012702 MOV he 
5726 051074 120$: 
051074 012760 MOV #DMD'!MUR'!DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
5727 051102 012760 MOV #DMD ‘MUR! DBEN.RMMR1(RO) ;LOAD RMMR1 
5728 051110 005302 DEC R2 
5729 051112 001370 BNE 120$ 
5731 sSET SEEK INCOMPLETE ERROR TO CAUSE ABORT 
273¢ 051114 012760 MOV ADMD 'MUR'DBEN!MSER,RMMR1(RO) LOAD RMMR1 
5734 sCLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
5735 051122 012702 #2,R2 : 
5736 051126 130$: 
031126 012760 MOV #DMD !MUR! DBEN! MSER! DBCK RMMR1 (RO) sLOAD RMMR1 
5737 051134 012760 MOV #DMD'MUR'DBEN'MSER,RMMRI(RO) . ;LOAD RMAR1 
5738 051142 005302 DEC Re 
5739 051144 001370 BNE 130$ 
5741 sABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
376¢ “FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
3743 051146 012702 ia V ten sMAXIMUM NUMBER OF BIT CLOCKS 
051152 012760 MOV #DMD'MUR'MOC!DBEN!MDF!MCLK,RMMR1(RO) — ;LOAD RMMR1 
5745 051160 012760 MOV #DMD 'MUR'MOC!DBEN'MDF-RMMR1I(RO) ;LOAD RMMR1 
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001140 
001136 
001124 


000006 
000034 


000024 
000014 
000042 
000000 


001140 
001136 


SEQ 0213 


MOV RMMR1(RO), SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #°CEBL,SBDDA 
BNE 140$ 
DEC R 
BNE 135$ sCONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL ,SGDDAT 
MOV RO, SBDADR 
ADD #RMMR1, SBDADR 
140$: MOV #150$,$LPERR sCHANGE LOOP ON ERROR ADDRESS 
sVERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH 
{DOESNT RESET 
JSR PC, SETVV :G0 SET VOLUME VALID 
BR 160$ ‘BRANCH TO 160$ IF NO ERROR 
BR 220$ 
LOAD TRACK, SECTOR AND CYLINDER ADDRESSES 
; #0,RMDA(RO) ZLOAD RMDA 
MOV #0.RMDC (RO) SLOAD RMDC 
JSR PC,SETOM :GO0 SET OFFSET MODE 
BR 170$ [BRANCH TO 170$ IF NO ERROR 
BR 220$ 
i ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
MOV #DMD !MUR! MOC ! DBEN, RMR (RO) ;LOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RM 
MOV *"RMER2(RO) —s$L AER A 
MOV #RD!GO,RMCS1(RO)” ;LOAD RMCS1 


WAIT FOR oo AND GO TO SET 


00. ,WATCH :SET WATCHDOG TIMER VALUE 

am JSR PC, a@cLOck *START THE CLOCK 

MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT SBDDAT 

BIC #°CRG, SBDDAT 

BNE 190$ 

TST WATCH 

BNE 180$ 

JSR PC, aSTOPCL :STOP THE CLOCK 

MOV #RG, SGDDAT 

MOV RO, $GDDAT 

ADD #RMMR1, SBDADR 
190$: 


JSR PC ,aSTOPCL :STOP THE CLOCK 
;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 
MOV #17. ,R2 


: 4% 
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5796 051426 200S: 
051426 012760 141401 000024 MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
5797 051434 012760 041401 000024 MOV #DMD ' MUR | MOC | DBEN,RMMR i (RO) ZLOAD RMAR1 
5798 051442 005302 DEC R2 
5799 051444 001370 BNE 20u$ 
5801 sDROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
5802 SAT LOCATION 166 
5803 051446 012760 041001 000024 MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
5804 051454 012760 041401 000024 MOV #DMD ‘MUR! DBEN! MOC ,RMMR1 (RO) sLOAD RMMR1 
5806 ;MOVE SEQUENCER TO SET OPI AND EBL (39 CLOCKS) 
5807 051462 012702 000047 MOV #39. ,R2 
5808 051466 2108: 
466 012760 141401 000024 MOV #DMD ! MUR! DBEN! MOC ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
474 012760 041401 000024 MOV #DMD 'MUR | DBEN! MOC ~RMMR1 (RO) ZLOAD RMAR1 
5810 051502 005302 DEC R2 
5811 051506 001370 BNE Sf0s 
5813 sVERIFY OPI IS SET 
5814 051506 016037 000014 001142 MOV RMER1 (RO), SBDDAT sSTORE RMER1 AT SBDDAT 
5815 051514 042737 157777 001142 BIC #°COPI, $BDDAT 
5816 051522 001011 BNE 220$ 
5817 051524 012737 020000 001140 MOV #OPI ,SGDDAT 
5818 051532 010037 001136 MOV RO, SBDADR 
5819 051536 062737 000014 001136 ADD #RMER1, SBDADR 
5820 051544 104277 EMT 
5821 051546 012737 051554 001124 220$: MOV #230$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
2825 sVERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP 
5825 051554 230S: 
051554 004737 054732 JSR PC,SETVV :G0 SET VOLUME VALID 
051560 000403 BR 240$ ‘BRANCH TO 240$ IF NO ERROR 
051562 104000 EMT 
5826 051564 000137 052174 JMP 310$ 
5828 *LOAD SECTOR, TRACK AND CYLINDER ADDRESS 
5829 051570 340$: 
5830 051570 012760 000000 000006 MOV #0,.RMDA(RO) ZLOAD RMDA 
5831 051576 012760 000000 000034 MOV #0. RMDC (RO) SLOAD RMDC 
5833 051604 004737 055054 JSR PC, SETOM :GO SET OFFSET MODE 
051610 000402 BR 245$ *BRANCH TO 245$ IF NO ERROR 
051612 104000 EMT 
5834 051614 000567 BR 310$ 
5836 “ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5837 051616 545$: 
051616 012760 041401 060024 MOV #DMD ! MUR! MOC! DBEN, RMR (RO? :LOAD RMMR1 
5838 051624 012760 000000 000014 MOV #0,RMER1 (RO) LOAD R MERI 
5839 051632 012760 000000 000042 MOV #0. RMER2 (RO) LOAD RMER? 
3840 051640 012760 000071 000000 MOV arb eo" RMCS1(RO) > RMCS1 
3842 :WAIT FOR RUN AND GO TO SET 
5843 051646 012737 000310 001534 MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
051654 004777 127656 JSR PC, acLOCk *START THE CLOCK 





SEQ 0215 | 


J 
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5844 051660 250$: 

031660 9 1Sr3h 990024 001142 MOV RMMR1 (RO), SBDDAT sSTORE RMMR1 AT SBDDAT 
5845 51666 Q4e73 137777 00114 BIC #°CRG, SBDDAT ; 
5846 051674 00101 BNE 260$ 
584 091676 005 yy 001534 TST WATCH 
5848 051702 001 BNE 250$ 
5849 051704 004777 127630 JSR PC .@STOPCL :STOP THE CLOCK 
5850 051710 012737 940000 001140 MOV aR $GDD 
5851 051716 010037 001136 MOV RO. SBDAD 
3852 051722 062737 000024 001136 ADD A SEDADR 
5853 051730 104275 EMT 
5854 051732 000520 BR 10$ 
5855 0517 260$: 
ions 051734 004777 127600 JSR PC, aSTOPCL :STOP THE CLOCK 
5857 sSTEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 

5858 051740 012702 000021 MOV #17., 
5859 051744 270$: 

051 012760 141401 000024 MOV #DMD 'MUR' MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
5860 051752 01276C 041401 000024 MOV #DMD ' MUR! MOC! DBEN, " RMMR 1 (RO) ;LOAD RMAR1I i 
5861 051760 005302 DEC R2 
3862 051762 001370 BNE BS0s 
5864 DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
5865 SAT LOCATION 166 
5866 051764 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
5867 051772 012760 041401 000024 MOV #DMD 'MUR MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
5869 MOVE SEQUENCER TO LOCATION 174 (37 CLOCKS) 

5870 052000 012702 000045 #37. ,R2 
5871 052004 280$: 

052004 012760 141401 000024 #DMD! MUR! MOC !DBEN! DBCK,,RMMR1 (RO) :LOAD RMMR1 
5872 052012 012760 041401 000024 MOV #DMD | MUR (MOC ‘ DBEN, RMMR1 (RO) ZLOAD RMMR1 
5873 052020 005302 DEC R 
587% 652022 001370 BNE 280$ : 

5876 ;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET 
5877 052024 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

5879 STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS) 
5880 052032 012702 000007 #7., 

5881 052036 290$: 

0520. 012760 141001 000024 MOV #DMD : PUR : DBEN! DBCK RMMR1 (RO) sLOAD RMMR1 
5882 052044 012760 041001 000024 MOV #DMD'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
5883 052052 005302 DEC R2 
3884 052054 001370 BNE 290$ 
5886 :SET DRIVE FAULT TO CAUSE ABORT CONDITION 
3887 052056 012760 041101 000024 MOV #DMD ' MUR !DBEN! MDF ,RMMR1 (RO) ZLOAD RMMR1 
5889 :STEP SEQUENCER THR GH ITS TEST FOR ABORT (2 CLOCKS) 

5890 052064 012702 000002 MOV oe 
5891 052070 300$: 
52070 012760 141101 000024 MOV #DMD !MUR ! DBEN! MDF !DBCK,.RMMR1 (RO) :LOAD RMMR1 
5892 052076 012760 041101 000024 MOV #DMD 'MUR | DBEN (MDF .RMMRi1 (ix0) ZLOAD RMAR1 
5893 052104 005302 DEC R2 
5894 052106 001370 BNE 300$ 
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001140 
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7 DATA COMMAND TESTS 


zABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE eleree TO 
ZFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 a CLOCKS 


anes MOV 16. ,R2 sMAXIMUM NUMBER OF BIT CLOCKS 
MOV #DMD'MUR'!MOC!DBEN!MDF!MCLK,RMMR1(RO) — ;LOAD RMMR1 
MOV #DMD'MUR ‘MOC! DBENI MDF .RMMR1(RO) :L 
MOV RMMR1 (RO) , SBDDAT sSTORE RMMR1 AT SBDDAT 
BIC #°CEBL, SBDDAT 
BNE 310$ 
DEC R2 
BNE 305$ sCONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL -SGDDAT 
MOV RO, SBDADR 
ADD #RMMR1 , SBDADR 
EMT 271 
310$: MOV #320$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
:VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179 
320$: 
JSR PC, SETVV 360 SET VOLUME VALID 
BR 330$ SBRANCH TO 330$ IF NO ERROR 
JMP 420$ 
just DEBUG CLOCK AND LUAD DATA COMMAND 
MOV #DMD! MUR! MOC !DBEN, RMMR1 (RO) ZLOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMER1 
MOV *RMERZ(RO) :LOAD RMER2 
MOV #0.RMDAC(RO) [LOAD RMDA 
MOV #0. RMDC(RO) SLOAD RMDC 
MOV #RD!GO,RMCS1(RO)” ;LOAD RMCS1 
;WAIT FOR RUN AND GO TO SET 
MOV #200. WATCH :SET WATCHDOG TIMER VALUE 
oe JSR PC,aCLOCk *START THE CLOCK 
"mov RMMR1(RO), SBDDAT :STORE RMMR1 AT SBDDAT 
BIC #°CRG, $BDDAT 
BNE 350$ 
TST WATCH 
BNE 340$ 
JSR PC .@STOPCL :STOP THE CLOCK 
MOV #RG, $GDD 
MOV RO, $BDA AOR 
ADD #RMMR1, SBDADR 
Sh 
350$: 
JSR PC, aSTOPCL :STOP THE CLOCK 


zSTEP SEQUENCER 
MOV 


TO_LOCATION 156 (17 CLOCKS) 


ee 
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CZR 
T11 


7 DATA COMMAND TESTS (2 


5945 052360 

b2 0 

5946 05 

5947 052374 

5948 052376 

5949 

5950 

5951 

2026 052400 

595 

5954 

5955 0524 

5956 05241 
52412 

5957 052420 

5958 052426 

5959 052430 

5960 

5961 

5962 

5963 052432 

5964 Oates 

5965 panes 


5976 052520 

5977 

5978 

5979 052522 
052522 

5981 

5982 052530 

5983 052534 
036 

5984 052542 

5985 052550 

5986 052552 

5987 

5988 


5989 
5990 052554 
~5991 052560 


05256 
4444 052566 
599. 


599% 
5995 052574 





015768 
012760 
005302 
001370 


012760 


012702 
012760 


012702 
012760 


012760 


012702 


001370 


012702 


012760 
012760 


016037 


041001 


000042 


141401 
041401 


000006 
141401 
041401 


000024 
173777 


004000 
001136 
000024 


041301 


000002 


141501 
041501 


000020 


045501 
041501 


000024 


4 
000024 


000024 


000024 
000024 


000024 


001142 


001140 
001136 


000024 


000024 
000024 


000024 
000024 


001142 
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1 
SEQ 0217 


360$: 
#DMD MUR! MOC ! DBEN! DBCK ,.RMMR1 (RO) 
MOV #DMD 'MUR ' MOC ! DBEN,RMMRi (RO) 
DEC R2 
BNE 360$ 
:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
*AT LOCATION 166 
MOV #DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
yMOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS) 
#34. ,R2 


370$: = 


;LOAD RMMR1 
LOAD RMMR1 


;LOAD RMMR1 


MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) 
MO 3LOAD RMARI 


MOY DMD ! MUR MOC !DBEN, RAMA (RO) 
BNE 370$ 


zSTEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED 
;DURING — Louris CLOCKS) 


ee 


380$: 
MOV #DMD '! MUR! MOC ! DBEN! DBCK,,RMMR1 (RO) ;LOAD RMMAR1 
MOV #DMD ' MUR | MOC ! DBEN,RMMR1 (RO) ;LOAD 1 
MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
BIC -. #*CESRC,$BDDAT 
BEQ 390$ 
DEC R2 
BNE 380$ 
BR 400$ 
390$: MOV WESRC ,SGDDAT 
MOV * A 
ADD #RMMR1 , SBDADR 
EMT 01 
BR 420$ 


ipet DRIVE FAULT TO CAUSE ABORT CONDITION 
"MOV #DMD! MUR! MOC ! DBEN! MDF ,RMMR14R0) jLOAD RMR 
:STEP SEQUENCER a ITS TEST FOR ABORT (2 CLOCKS) = 


410$: 
#DMD'!MUR'MOC!DBEN‘MDF!DBCK,RMMR1{RO) — ;LOAD RMMR1 
MoV #DMD i MUR!OC {DBEN!MDF .RMMRT (RO) :LOAD RMAR1 
BNE 410$ 


zABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO 
3FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
4158: Vv ;MAXIMUM NUMBER OF BIT CLOCKS 


MOV #DMD!MUR!MOC!DBEN!MDF !MCLK,RMMR1(RO) — ;LOAD RMMR1 
MOV #DMD'MUR'MOC!DBEN'MDF.RMMR1 (RO) ;LOAD RMAR1 


VERIFY EBL IS SET 
MOV RMMR1 (RO) , SBDDAT 


;STORE RMMR1 AT SBDDAT 


yaad RM80 


Seeereecesaes 


SRSaReReneneee 
NM=2ODOOSNAULSWN—O 


S 
Nm 
ws 
° 
wm 
™ 
PS 
S 


6 
6027 052744 
6028 


6029 
6030 052752 
6031 052756 


36 
6037 052762 
6038 052762 
0527 


0527 3 
6039 05277 
6040 
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112737 


004737 
000137 


157777 


020000 
001136 
000024 


104536 


052762 


000600 


054732 


053664 


“1 
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001142 BIC #*CEBL , SBDDAT 
BNE 420$ 
DEC R2 
BNE 415$ sCONTINUE BIT CLOCKS IF COUNT NOT 0 
001140 MOV #EBL , SGDDAT 
MOV RO,$BDADR 
001136 ADD #RMMR 1, SBDADR 
EMT 271 
4208: sEND OF TEST 
FERRARA REERERREERERERERERRERAEERREREREERERERERERERRRRERRRERER 
s*TEST 120 DATA COMMAND TESTS (3) 
ne ge ANA. eta ap a RI 
T $ 
= sSCOPE CALL 
MOV #STACK,SP sLOAD THE STACK POINTER 
MOV oR ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 z3R1 = POINTER TO DEVICE 
001226 MOV #120, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


VERIFY THE TAG BUS DURING DATA COMMAND 
sFIRST PART USES OFFSET FORWARD 


;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
MOV # co sLAST CYLINDER 


46 0 wh 
001420 MOV LSTRK,RMDAO ‘SET LAST TRACK AND 
001420 MOVB #29. ,RMDAO *LAST SECTOR 
001444 MOV #OFD.RMOFO SFORWARD OFFSET 
001412 MOV #RD'GO,RMCS10 READ DATA 
001414 MOV #-256.,RMWCO WORD COUNT 
001416 MOV WBUFFER,RMBAO :BUFFER ADDRESS 
:FXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC,10$ 
sSECOND PART USES OFFSET REVERSE 
[LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
001444 MOVB © #0, RMOFO sREVERSE OFFSET 


EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
306s 
J RRRREEAEARERERERERRAEREREREERAEAERAREREEERRREREREREERERAORAARET 


;SUBROUTINE USED DURING TEST 


FARRAR ARRR EERE REREEEREEREERERERERERERREREREERRRERARRRERERERE 


10$: 
JSR PC, SETVV :GO0 SET VOLUME VALID 
BR 20$ ‘BRANCH TO 20$ IF NO ERROR 
JMP 160$ 
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A COMMAND TESTS (3) 


*LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET 


MOV RMDAO,RMDA(RO) ;LOAD RMDA 
MOV RMDCO,RMDC(RO) :LOAD RMDC 
MOV RMOFO,RMOF (RO) LOAD RMOF 
JSR PC,SETOM 360 SET OFFSET MODE 
BR 30$ *BRANCH TO 30$ IF NO ERROR 
JMP 160$ 
hoa BUFFER ADDRESS AND WORD COUNT 
“MOV RMWCO,RMWC(RO) ;LOAD RMWC 
MOV RMBAO.RMBA(RO) :LOAD RMBA 
ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
ADMD 'MUR | MOC ! DBEN, RWMR' (RO) ;LOAD RMMPR1 
MOV #0,RMER1(RO) LOAD RMER1 
MOV #O.RMER2(RO) — LOAD RMER2 
MOV RMCS10,RMCS1(RO)- ;LOAD RMCS1 
:WAIT FOR RUN AND GO TO SET 
MOV #200. WATCH sSET WATCHDOG TIMER VALUE 
as JSR PC, aCLOCk *START THE CLOCK 
"MOV RMMR1(RO), SEDDAT ;STORE RMMR1 AT SBDDAT 
BIC #°CRG, $BDD 
BNE 50$ 
TST WATCH 
BNE 40$ 
JSR PC .aSTOPCL :STOP THE ‘CLOCK 
MOV DAT 
MOV ett BADR 
ADD pn: »SBDADR 
EMT 27 ey 
50$ JMP 160$ ae 
= yam PC, a@STOPCL ;STOP THE CLOCK 
MOV #200$,R4 *R4 = TABLE POINTER 


;STEP SEQUENCER 
MOV 
60$: 


MOV 


TO_HEAD SEQUENCE AT ye te (17 CLOCKS) 
#17..R5 sRS5 = CLOCK 


RMMR2 (RO) ,SBDDAT : STORE “pee AT SBDDAT 


FERRARA ERERERAEAAREEREREEERERRAREEARAEARAERERAARARAARER 


MOV 


BIC 
CMP 
BEQ 


SBDDAT ,STMPO cIF CC _AND CH ARE SET AT THE SAME 


TIME 
sTHE ECO TO THE CS BOARD IS IMPLEMENTED. 


: SAVE cc AND CH BITS 
zARE CC AND CH 
YES, SRANCH To aly LOCATION 


oetes! CoH es STMPO 


janenennenenaesenscteceeeetereeressteceeneeeenetenseeenseneesee 


BIC 
MOV 


#ROA!ROB! TST, SBDDAT 
(R4)+,$GDDAT 


SEQ 0219 


T120 
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p14 053250 
6093 053256 
6094 053264 
6095 053266 
6096 Oaesce 
6097 05 $i3 
6098 053302 
6099 053304 
6100 053 
6101 053310 
6102 053314 
6103 053322 
6104 053324 
$105 
6106 
6107 
6108 053326 
6109 053326 
6110 053334 
6111 
6112 
6113 053342 
6114 053346 
053346 
6115 
6116 
6117 053354 
6118 
6119 
6120 053362 
6121 053370 
6122 053376 
6123 053400 
6124 053404 
6125 053406 
6126 
6127 
128 053406 
6129 053414 
6130 053420 
6131 053424 
6132 053426 
6133 053432 
6134 
6135 
6136 053434 
6137 053442 
6138 053450 
6139 053452 
6140 053460 
6141 053466 
Oise 
614 
6144 03370 
6145 053470 
6146 053474 
6147 





DATA COMMAND TESTS (3) 


001136 


000024 
000024 


001142 


001174 


001142 


BR 
MOV 
ADD 
cMT 
BR 


MOV 
MOV 


MOV 


BIC 
CMP 
BNE 


SUB 
BR 


RMDCO SGDDAT :0R CYLINDER ADDRESS 
SGDDAT, SBDDA 
;BRANCH IF TAG BUS WRONG 


4#DMD !MUR!MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
#DMD MUR MOC !DBEN, “RMMR I (RO) ZLOAD RMAR1 


5 
0$ 
0s 

RO, $BDADR 
#RMMR2 , SBDADR 
276 


160$ 


SOCATION 166. TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT 


#DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
#DMD 'MUR MOC ! DBEN,RMMR1 (RC) :LOAD RMMR1 


3STEP — bs END_OF OFFSET AT LOCATION 174 (37 CLOCKS) 


37. .R5 sRELOAD CLOCK COUNT 
RMMR2 (RO) , SBDDAT sSTORE RMMR2 AT SBDDAT 


LRRAARARERAERRERERRERERERERERAERERERERERERERRERERERRERERRRERERERE 


SBDDAT ,STMPO ei CC AND CH ARE SET AT SAME TIME 
THE ECO TO THE CS BOARD IS IMPLEMENTED. 


#*C<CC!CH>, STMPO sSAVE CC AND CH BITS 
= cate _ cc AND CH SET ? 


#2,R4 sO UST THE TABLE ADDRESS 
115$ *TO OTHER LOCATION 


22 REREREREEAAERRERREEREREEEEREREREEEREREREREEREREREEREREREEREREEREEEEK 


BIC #ROA!ROBSTST, SBDDAT 
MOV {R4) SGDDAT 
BEQ= 110 :BRANCH IF CONTROL/HEADER NOT ON 
BIT ACC, (R4) 
BEQ 100$ ;BRANCH IF HEADER TAG 
sCONTROL TAG SHOULD BE ON-SETUP EXPECTED OFFSET 
BIS #BB03,$GDDAT  ;ASSUME OFD IS NOT SET 
BIT #OFD,RMOFO 
BEQ 95$ 
BIC #BB03,$GDDAT =; RESET BUS BIT 3 - DIRECTION IS REV 
BIS 3802, cDDAT 
BR 
;HEADER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS 
*  MOVB ~—s- RMDAO+1,,R3 :GET TRACK 
BIS R3,$GDDAT 


on 


2 
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F130 DATA COMMAND TESTS (3) 


6148 “COMPARE EXPECTED AND RECEIVED TAG BUS DATA 
6149 053500 110S: 
6150 093900 023737 001140 001142 CMP SGDDAT .SBDDAT 
6151 053506 001073 BNE 120$ 
613¢ 053510 115$: 
6153 053510 012760 141401 000024 MOV #DMD ! MUR! MOC !DBEN! DBCK ,RMMR1 (RO) LOAD RMMR1 
6154 053516 012760 041401 000024 MOV ADMD | MUR‘ MOC ! DBEN, RMMRi (RO) *LOAD RMMR1 
6155 053524 062704 000002 ADD #2.Rh sMOVE TABLE POINTER 
6156 053530 005305 DEC R *DECREMENT CLOCK COUNT 
6157 053532 001305 BNE 90$ 
6158 053534 000407 BR 130$ 
6159 053536 910057 001136 120$: MOV RO. SBDADR 
6160 053542 062737 000040 001136 ADD ARMMR2 , SBDADR 
6161 053550 104276 EMT 76 
6162 053552 44 160$ 
6164 DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT 
6165 “SEQUENCER LOCATION 175 
6166 053554 150$: 
6167 053554 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

053562 012760 041401 000024 MOV #DMD 'MUR 'MOC !DBEN, RMMR1 (RO) ;LOAD RMMR1I 
6170 STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS) 
6171 053570 012705 000010 MOV #8.,R5 
6172 053574 140$: 

053574 0°6037 000040 001142 MOV RMMR2(RO) , SBDDAT sSTORE RMMR2 AT SBDDAT 
6174 {RRR EEERERREEREEERERERERRERERERERRERERERREREERRERERREEREREE 
6175 + BIC #RQA!ROB! TST, S$BDDAT 
6176 sTHE FOLLOWING CODE WAS ADDED 
6177 :T0 ALLOW THE PROGRAM TO RUN WITH 
6178 [OR WITHOUT ECO TO THE CS BOARD. 
6180 053602 042737 171777 001142 . BIC #°C<CC!CH>, SBDDAT -SAVE CC AND CH BITS 
6181 053610 012737 006000 001140 MOV #CC'CH,$SGDDAT ;GET EXPECTED DATA 
Oise 23 REREKEREREREREREERERERERERERERERERRERERERERERERERERRAREERREREEE 
6 
6184 053616 023737 001140 001142 | CMP SGDDAT,SBDDAT GOOD DATA SAME AS LAST CMP 
6185 053624 001011 BNE 150$ CH IF ERROR 
6186 053626 0:2760 141401 000024 MOV WMD! MUR! MOC! DBEN! DBCK, RMMR1 (RO) *LOAD RMMR1 
6187 053634 012760 041401 000024 MOV #DMD | MUR (MOC | DBEN. RMMR1 (RO) ZLOAD RMAR1 
6188 053642 005305 DEC R 
6189 053644 001353 BNE 1408 
6190 095646 000406 BR 160$ 
6191 053650 010037 001136 150$: MOV Abe SBDADR 
6192 053654 062737 000040 001136 ADD ARMMR2 , SBDADR 
6198 053662 104276 EMT 276 
6195 053664 000207 160$: RTS PC 
6197 -TABLE OF TAG BUS CONTROL AND DATA VALUES 
6198 053666 200$: 
6199 053666 001777 .WORD 1777 LOCATION 
6200 053670 001777 “WORD 1777 ATION 25 
$30) Beers | OOTT77 WORD 1555 :LOCAT ATION 198 
66 053676 001777 “WORD 1777 ATION 138 


on 


a0 
Cael 


D2 
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20 DATA COMMAND TESTS (3) 

6204 033708 001777 eWORD 1777 sLGCATION 130 
05 053702 000 WORD CC sLOCATION 144 
06 B2 704 000 WORD CC sLOCATION 145 
07 055706 024000 eWORD CCITAG sLOCATION 198 
08 055710 024000 -WORD CC!TAG sLOCATION 14 
09 053712 024000 ~WORD CC!TAG sLOCATION 148 

6210 053714 024000 ~WORD CC!TAG sLOCATION 149 

6211 053716 024000 WORD CC!TAG sLOCATION 150 

621 § 053720 024000 -WORD CC!TAG sLOCATION 151 

6213 053722 004000 WORD CC sLOCATION 1 2 

6214 053724 004000 WORD CC sLOCATION 15 

ost 5 053726 001777 «WORD 1777 sLOCATION 154 
16 0537 002000 WORD CH sLOCATION 1 2$ 

6217 053732 002000 WORD CH sLOCATION 15 

6218 O2/ee 022000 WORD CHITAG sLOCATION 158 

6219 053736 022000 - WORD H!TAG sLOCATION 159 

6220 053740 022000 ~WORD CH!TAG sLOCATION 160 

6221 053742 022000 WORD CH!TAG sLOCATION 161 

6222 053744 022000 -WORD CH!ITAG sLOCATION 162 

6223 053746 022000 -WORD CH!7AG sLOCATION 163 

6224 053750 002000 WORD C sLOCATION 164 

6225 053752 002 «WORD C sLOCATION 165 

6226 053754 001777 -WORD 1777 sLOCATION 232 

6227 053756 001777 eWORD 1777 sLOCATION 233 

6228 053760 001777 eWORD 1777 sLOCATION 234 

6229 053762 1777 -WORD 1777 ; TION 235 

6230 053764 001777 eWORD 1777 3LOCATION $39 

6231 66 001777 eWORD 1777 sLOCATION 237 

6232 053770 001777 WORD 1777 sLOCATION 238 

3 001777 WORD 1777 3 TION 239 

53 001777 WORD 1777 3 TION 240 

6235 053776 001777 ~WORD 1777 sLOCATION 241 
001777 WORD 1777 sLOCATION 5¢$ 

6237 054002 001777 eWORD 1777 sLOCATION $¢ 

6238 054004 001777 -WORD 1777 sLOCATION 244 

6239 054006 001777 eWORD 1777 sLOCATION 245 

6240 054010 001777 eWORD 1777 sLOCATION $78 

6241 054012 001777 -WORD 1777 sLOCATION 247 

6242 054014 001777 WORD 1777 sLOCATION 248 

6243 054016 001777 ° 1777 sLOCATION 249 

054020 0017 eWORD 1777 sLOCATION 250 

6245 054022 001777 eWORD 1777 sLOCATION $2! 

6246 054024 001777 »WORD 1777 sLOCATION 252 

6247 054026 001777 ° 777 sLOCATION 168 

6248 054030 - WORD 'CH sLOCATION 16 

6249 054032 WORD CC!CH sLOCATION 170 

6250 054034 026000 WORD CC!CH!TAG sLOCATION 171 

6251 054036 026000 WORD CC!CH!TAG sLOCATION 1 is 

6252 054040 026000 eWORD CC!CH!TAG sLOCATION 17 

6253 054042 026000 eWORD CC!CH!TAG sLOCATION 174 

O638 054044 026000 eWORD CC!CH!TAG sLOCATION 175,ETC 

6256 054046 300$: sEND OF TEST 
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END OF SUB-PASS ROUTINE 


SEQ 0223 : 


1 .SBTTL END OF SUB-PASS ROUTINE 
g STHIS I$ THE END OF SUBPASS ROUTINE. THIS ROUTINE IS USED TO 
4 [TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER. TEST AND 
5 i SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
6 TEST, EXIT IS TO 'SEOP*® ROUTINE. OTHERWISE, RETURN 
i 31S MADE’TO "READY ROUTINE. 
9 054046 000004 SEOSP: SCOPE 
10 054050 000240 NOP 
11 054052 013700 001466 MOV ——- TSTQUE,RO 3GET POINTER TO TSTQUE 
le 094096 062700 000002 ADD ¥ ADJUST POINTER TO NEXT DEVICE 
13 054062 010037 001466 MOV = RO, TSTQUE SAVE POINTER T 
14 054066 005710 TST (RO) zANY MORE DEVICES FOR TEST ? 
15 054070 001402 BEQSsiéd1SS 
16 054072 000137 007006 JMP —s- READY TYES, JUMP TO ‘READY’ ROUTINE 
17 054076 012737 001470 001466 1$: MOV = #TSTQUE+2, TSTQUE™ INITIALIZE POINTER TO FIRST DEVICE IN 
18 ;TEST QUE TABLE 
20 .SBTTL END OF PASS ROUTINE 
FRRAAAAEREERRAREREREREREREREEEAEREREEREEREERRERREREREREREREREERER 
{INCREMENT THE PASS NUMBER ($PASS) 
YPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY"* 
$ SUHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
SIF THERES A MONITOR GO TO IT 
[IF THERE ISN'T JUMP TO READY 
054104 SEOP: 
054104 000240 NOP 
054106 005037 001116 CLR = $TSTNM 3sZERO THE TEST NUMBER 
054112 005037 001206 CLR = STIMES 732ERO THE NUMBER OF ITERATIONS 
054116 005237 001230 INC  $PASS i INCREMENT THE PASS NUMBER 
054122 042737 100000 001230 BIC #100000,$PASS 2DON'T ALLOW A NEG. NUMBER 
054130 005327 DEC (PC)+ 3;LOOP? 
054132 000001 SEOPCT: .WORD 
054134 003066 BGT  $DOAGN 33 YES 
054136 012737 MOY (PC)+,a(PC)+ — ;;RESTORE COUNTER 
054140 1 SENDCT: .WORD 1 
054142 054132 EOPCT 
054144 104401 054152 PE ,65$ Zi TYPE ASCIZ, STRING 
054150 00040 4$ 7GET OVER THE ASCIZ 
rie 11958: ASCIZ <12><15>/END PASS &#/ 
054170 013746 001230 MOV —« $PASS,=(SP) £7 SAVE SPASS FOR TYPEOUT 
054174 104405 TYPDS 33G0_TYPE=-DECIMAL ASCII WITH SIGN 
054176 005737 001126 TST = SERTTL 33SEE IF ANY ERRORS THIS PASS 
054202 001431 BEQ  $GT42P ERRORS TO REPORT 
054204 104401 054212 TYPE ,67$ zITVPE ASCIZ STRING 
054210 00042 aR $ GET OVER THE ASCIZ 
aalii i678: "ASCIZ 7 TOTAL ERRORS SINCE LAST REPORT / 
% : 
054254 013746 001126 MOV - SERTTL,~(SP) —; ;SAVE SERTTL FOR TYPEOUT 
AL NUMBER OF ERRORS 
054260 104405 TYPDS $360 TYPE--DECIMAL ASCII WITH SIGN 
054262 005037 001126 CLR ss SERTTL TECLEAR ERROR TOTAL 
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END OF PASS ROUTINE 


054266 104401 001217 $GT42P: TYPE SCRLF z;TYPE CARRIAGE RETURN, LINE FEED 
054 013700 000042 $GET42: MOV a#42,R0 T:GET MONITOR ADDRESS 
054276 001405 BEQ $DOAGN + :BRANCH IF [.° MONITOR 
054 900005 RESET TICLEAR THE | cLD 

054 004710 SENDAD: JSR PC, (RO) +:60 TO MONIiUR 

054 000240 NOP 33 ROOM 

054 000240 NOP 33 

054310 000240 NOP SSACT11 

054312 SDOAGN: 

054312 000137 JMP a(PC)+ 3 zRETURN 

054314 007006 SRTNAD: .WORD READY 

054316 377 377 000 $ENULL: -BYTE -1,-1,0 s;NULL CHARACTER STRING 


G 
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CLOCK SUBROUTINES 


1 .SBTTL CLOCK SUBROUTINES 
$ sROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P) 
§ 054322 900240 SIZCLK: NOP 
6 094324 013746 000004 MOV ERRVEC,- 5 (SP) ;sPUSH ERRVEC ON STACK 
7 054 01374 0006 MOV ERRVEC#2.=( “PUSH ERRVEC+2 ON STACK 
8 054334 012737 054420 000004 MOV #10$, ERR vec ZLOAD 04 “TRAP VECTORS 
- 054342 012737 000300 000006 MOV #PR6,ERRVEC#2 
11 :SEE IF A KW11-P CLOCK 1S PRESENT - Go TO 108 IF NOT PRESENT 
le 054350 777 125136 TST a$LPCSR :TEST FOR P CLOCK 
13 054354 012737 054562 001536 MOV #PCLOCK CLOCK ‘TBS SUBROUTINE ADDRESS 
14 054362 012737 054704 001540 MOV P,STOPCL LOAD STOP AD 
15 054370 012777 054650 125120 MOV sPCOUNT. aSLPVE VEC :LOAD P CLOCK INTERRUPT VECTOR 
16 054376 012777 000300 125114 MOV #PR6, aSLPVEC+ 
17 054404 013777 901526 125112 MOV Siivece a$LLVEC :CLEAR L CLOCK INTERRUPT VECTOR 
18 054412 005077 125110 CLR aSLLVEC+2 
19 054416 000454 BR 0$ 
20 054420 012716 054426 10$: MOV #15$, (SP) sDUMMY RTI ADDRESS 
31 054424 000002 RTI SRESTORE PRIORITY 
33 seated iNO P CLOCK=SEE IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 
25 054426 012737 054504 000004 MOV #20$, ERRVEC HANGE 04 TRAP VECTOR 
054434 005777 125062 TST a$SLLCSR eer FOR L CLOCK 
27 054440 012737 054600 001536 MOV ALCLOCK .CLOCK SLOAD SUBROUTINE ADDRESS 
28 054446 012737 054712 001540 MOV #LSTOP,STOPCL LOAD STOP AD 
054454 012777 054650 12504- MOV #LCOUNT,@$LLVEC :LOAD L CLOCK INTERRUPT VECTOR 
30 054462 012777 000300 125036 MOV #PR6, aSLLVEC +2 
31 054470 013777 001520 125020 MOV SiPVECtOe @$LPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
32 054476 005077 125016 CLR aSLPVEC +2 
33 054502 22 30$ 
34 054504 012716 054512 20$: MOV #25$, (SP) :DUMMY RTI ADDRESS 
39 054510 000002 RTI SRESTORE PRIORITY 
seni NO CLOCK AVAILABLE = AUGMENT RETURN ADDRESS 
39 054512 005037 001536 CLR CLOCK CLEAR SUBROUTINE ADDRESS 
40 054516 012737 001520 001516 MOV sSLPVEC$2, SLPVEC! CLEAR P CLOCK INTERRUPT VECTOR 
41 054524 005037 001520 CLR $LPV 
42 054530 012737 001526 001524 MOV PSLLVECS2, SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
43 054536 005037 001526 CLR SLLVEC+2 
44 094542 062766 000002 000004 ret ADD & LISP) :CHANGE RETURN ADDRESS 
054550 012037 000006 MOV (SP)+, ERRVEC+2 POP STACK INTO ERRVEC+2 
46 054554 012637 000004 MOV (SP)+-ERRVEC  :;POP sTAtK INTO ERRVEC 
47 054560 000207 RTS PC 
4 ROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 
51 054562 012777 177777 124724 PCLOCK: MOV #-1 ,aSLPCSB ;LOAD COUNT SET BUFFER 
52 054570 012777 000135 124714 MOV #135, ASLPCSR 3LOAD CONTROL REGISTER 
53 054576 000403 BR 760 TO COMMON CODE 


54 
22 054600 012777 000100 124714 LCLOCK: MOV #100, a@$LLCSR 3LOAD CONTROL REGISTER 
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CLOCK SUBROUTINES 


SEQ 0226 


57 054 5037 001532 PLCLK: CLR TIME : CLEAR TIMER COUNT 

58 054612 1044 TRAP +;PUSH OLD PSW AND PC ON STACK 
054614 012 MOV (SP)+,R5 +S SAVE THE PSW IN RS 

59 054616 010537 001530 MOV R5,$PSW :SAVE P RIORITY 
054622 042705 177437 BIC #°CPR7,_RS MASK 

61 04606 02 705 000300 CMP #PR6,R5 31S "PRIORITY TOO HIGH?? 
054632 101005 BHI 

63 054634 Bis 46 000240 MOV #PRS ,-(SP) 2 PUT NEW PS ON STACK 
054640 012746 054646 MOV #30$,-(SP) T NEW PC ON STACK 
054644 2 RTI +:POP NEW PC AND PS 

54646 30S: 

64 054646 000207 40$: RTS PC 

66 ;ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11-L OR KW11-P) 

68 054650 PCOUNT: 

69 054650 062737 000021 001532 LCOUNT: ADD #17. ,TIME zADD 17M 10, ELAPSED TIME 

70 054656 103003 BCC H IF NO OVERFLOW 
054 012737. 177777 001532 MOV #~-1, TIME tRES GRE MAXIMUM COUNT 

72 054666 162737 000021 001534 10$: SUB #17, WATCH ;DECREMENT REMAINING TIME 

73 054674 100002 BPL 20$ CH IF POSITIVE 

74 054676 005037 001534 CLR WATCH *CLEAR REMAINING TIME 

03 054702 20S: 

ue :RTI TO HANDLE DEVICE INTERRUPTS 

9 054702 000002 IRP: RTI ;RETURN TO USER 

st ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P) 

83 054704 005077 124602 PSTOP: CLR a$LPCSR ls P CLOCK 

8 054710 00040 BR PLSTP 0 TO COMMON STOP CODE 

86 054712 005077 124604 LSTOP: CLR a$LLCSR pate L CLOCK 

88 054716 PLSTP: 

89 054716 013746 001530 MOV $PSW,-(SP) ::PUT NEW PS ON STACK 
054722 012746 054730 MOV #10$.-(SP) ::PUT NEW PC ON STACK 
054726 000002 RTI :POP NEW PC AND PS 
054730 10$: 

90 054730 000207 RTS PC 


I 
CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 16 SEQ 0227 
SET VOLUME VALID SUBROUTINE 


J .SBTTL SET VOLUME VALID SUBROUTINE 

3 :THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME Wabip 
4 :RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE. THE. S OUTINE 
g RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR OR is 
6 :DETECTED, ON WHICH CASE IT RETURNS TO ‘HE SECOND WORD FOLLOWING THE 
8 : 

9 SCALL: JSR PC,SETVV JUMP TO SUBROUTINE 

10 ; BR 2? RETURN HERE IF NO ERROR 

i : ERROR RETURN HERE IF ERROR 

13 054732 SETVV: 

14 054732 004737 055156 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 

15 054736 012760 000001 000024 MOV #DAD ; RMR (RO) “LOAD RMMR 

16 054744 012760 001001 000024 MOV #DMD i MUR, rbd “LOAD RMMR1 

17 054752 012760 000000 000014 MOV #0, RMER1(R RO) :LOAD RMER1 

18 054760 012760 000000 000042 MOV FO RMERZ(R RO)  :LOAD 

19 054766 012760 000023 000000 MOV WPACACK'GO,RMCS1(RO) ——; LOAD RMCS1 

20 054774 016037 000012 001142 MOV RMDS(RO),S$BDDAT ;STORE RMDS AT SBDDAT 

21 055002 042737 177677 001142 BIC #°CVV, SBDDAT 

22 055010 001020 BNE 1 ;BRANCH IF VOLUME VALID SET 

23 055012 010037 001136 MOV RO, SBDADR ‘SETUP FOR ERROR MSG 

24 055016 062737 000012 001136 ADD #RMDS ,SBDADR 

25 055024 012737 000100 001140 MOV #VV,.SGDDAT 

26 055032 062716 000002 ADD #2,(SP) sMOVE RETURN ADDRESS TO ERROR 

27 055036 112776 000170 000000 MOVB = #170,a(SP) [WRITE ERROR NUMBER 

28 055044 012737 000022 001174 MOV #PACACK , $TMPO 

29 055052 000207 10$: RTS PC RETURN 


36 
° 
no 


PONOMENPIPININYD) 2 2 2 OO OO 
VEVRUNVSSaNOAMNFUNsOCONOUsWN— 


SOOCoOSOoOSOoOoOOoooOoO 
AAA 


000024 
000014 
000042 
000000 
001142 
001142 


001140 
001136 
000000 


J 2 
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-SBTTL SET OFFSET MODE SUBROUTINE 


sTHIS SUBROUTINE ra i AN OFFSET COMMAND AND VERIFIES THAT Ag A 
SMODE SETS. THE DRI le HOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
SSUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
SWORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
;RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


ZCALL: JSR PC,SETOM JUMP TO SUBROUTINE 
: BR 2? RETURN HERE IF NO ERROR 
: ERROR RETURN HERE IF ERROR 
SETOM: 
MOV DMD ! MUR ,RMMR1 (RO) -LOAD RMMR1 
MOV 70, RMER1 (RO) 3LOAD RMER1 
MOV #0. (RO) OAD RMER2 
MOV #OPESET GO RMCS1(RO) LOAD RMCS1 
MOV RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
BIC #°COM, SBDDAT 
BNE 10$ sBRANCH IF OFFSET ON 
MOV #0M,$GDDAT 
MOV RO, $BDADR 
ADD #RMDS , $BD. 
ADD 2, (SP 


a ) ;MOVE RETURN ADDRESS TO ERROR 
MOVB #209,a(SP) ‘WRITE ERROR NUMBER 


RTS PC ;RETURN TO USER 


10$: 





a 
CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 18 SEQ 0229 
CLEAR CONTROLLER SUBROUTINE 


~SBTTL CLEAR CONTROLLER SUBROUTINE 


sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
— THEN SELECTS THE DRIVE. 


ONOULWN— 


3 JSR PC, CNTCLR :CALL TO ROUTINE 
055156 CNTCLR: 
055156 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
055160 910145 MOV R1,-(SP) *:PUSH R1 ON STACK 
9 055162 013700 001276 MOV SBASE ,RO :RO = UNIBUS BASE ADDRESS 
10 095166 012760 000040 000010 MOV #CLR,RMCS2(RO) CLEAR MAS 
11 055174 013701 001466 MOV UE, [GET DEVICE UNDER TEST 
lg 055200 111160 000010 MOVB  (R1),RMCS2(RO) :SELECT DEVICE 
13 055204 012601 MOV (SP)+,R1 +:POP STACK INTO R1 
055206 012600 MOV (SP)+.RO +:POP STACK INTO RO 
14 055210 000207 RTS PC SRETURN 
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SAVE AND RESTORE RO-R5 ROUTINE 
1 


5212 

055212 010046 

055214 010146 

055216 010246 

055220 010346 

055222 010446 

055224 010546 

055226 016646 000022 
055232 016646 000022 
055236 016646 000022 
055242 016646 000022 
055246 000002 

055250 

055250 012666 000022 
055254 012666 000022 
055260 012666 000022 
055264 012666 000022 
055270 012605 

055272 012604 

055274 012603 

055276 012602 

055300 012601 

055302 012600 

055304 000002 


SEQ 0230 | 


»SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


FRRRERARERERREERERRRERERERREERERRREREEEREREREREERRRRERERRRRRRREES 


SAVREG 
;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


+ SSAVE RO-R5 
: *CALL: 
e 
2 STOP-==(+16) 
t% +2=-<(+18) 
z® +4---R5 
g* +6---R4 
g ** +8---R3 
3%+10---R2 
3*412---R1 
3%+14---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 
feCALL? RO-R5 
* 
RESREG 
SRESREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


RO,-(SP) 


R5,~(SP) 
22(SP) ,=(SP) 
2 (SP) .- (SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


SISAVE PS OF MAIN FLOW 
z3SAVE PC OF MAIN FLOW 
zsSAVE PS OF CALL 
z3SAVE PC OF CALL 


2 sRESTORE PC OF CALL 
sRESTORE PS OF CALL 

S IRESTORE PC OF MAIN FLOW 

;sRESTORE PS = MAIN FLOW 

33POP STACK INTO R5 


=P 
POP STACK INTO R1 
33POP STACK INTO RO 
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& 
=se9 
ron 

OW 


25 


WNWAW 
& 


WuNoss 
ouw— 
=83398 
OOfOW 
= = 


bt 
so 


nents 
o 


AEALSMOS 
S225 


OMIM MAUI 
S 

Ss 

on 


SOCOOOOoOOOCoOSooCoO 
PPA ASIST AT STOTT 


o 
oS 


~SBTTL BINARY TO ASCII AND TYPE ROUTINE 


© RRERRREREREEREEEREREREREEEEEEEREREEERERAERERREREEREREREREREEEERE 


S*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
3*BINARY-ASCII NUMBER AND TYPE IT. 


3*CALL: 
i* MOV NUMBER,=(SP) =; ;NUMBER TO BE TYPED 
3* TYPBN se TYPE IT 
STYPBN: MOV —-R1,=( SP) 3:SAVE_R1 ON THE STACK 
mov  6(SP),R1 3:GET JHE INPUT NUMBER 
SEC :3SET ‘'C* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
1$: MOVB =- #0, $BIN 3:SET CHARACTER TO AN ASCII "0". 
Rol RI :3GET THIS BIT 
ADCB = SBIN :NO=-SET THE CHARACTER EQUAL TO THIS BIT 
TYPE , SBIN 3:G0 TYPE THIS BIT 
CLC 33CLE SO CAN KEEP TRACK OF BITS 
BR 1$ 3:60 DO THE NEXT BIT 
2$: MOV  (SP)+,R1 3:POP THE STACK INTO R1 
MOV 2¢SP).4(SP) —  ;ADJUST THE STACK 
mov (SP) +, (SP) 


RTI 7 RETURN TO USER 
$BIN: .BYTE 0,0 z3STORAGE FOR ASCII CHAR. AND TERMINATOR 





. N . 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ee ees ee eee on cee ek teee meee een ana ae 
TATHIS yg IS USED TO oe. A_16-BIT BINARY NUMBER TO A 5-DIGIT 
3 *SIGNED DECIMAL_(ASCII) NUMBER AND TYPE IT. ince at ON OUHETHER THE 
*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
7*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
S*REPLACED WITH SPACES. 


:*CALL: 
3* MOV NUM, =(SP) ::PUT THE BINARY NUMBER ON THE STACK 
i* TYPDS +:G0 TO THE ROUTINE 
055362 STYPDS: 
055362 010046 MO RO,-(SP) ::PUSH RO ON STACK 
055364 010146 MOV R1,-(SP) PUSH R1 ON STACK 
055366 010246 R2,-(SP) :: R2 ON STACK 
055370 010 MOV R3,-(SP) 7 2PU ON: ST 
055372 010546 MOV R5,=(SP) t: R> ON STACK 
055374 012746 020200 MOV #20200,-(SP) SET BLANK SWITCH AND SIGN 
055400 016605 000020 MOV 20(SP)-R5 SIGET THE INPUT NUMBER 
055404 1 BPL 1$ ::BR IF INPUT . 
055406 005405 NEG R5 S:MAKE THE BINARY NUMBER POS. 
055410 112766 000055 000001 MOVB = # "=, (SP) T:MAKE THE ASCII NUMBER NEG. 
055416 005000 1$: CLR Ro ° : t:ZERO THE CONSTANTS INDEX 
055420 012703 055576 MOV #SDBLK ,R3 t:SETUP THE OUTPUT POINTER 
055424 112723 000040 MOVB = #*— , (R3)+ t:SET THE FIRST CHARACTER TO A BLANK 
055430 005002 2$: CLR R2 S:CLEAR THE BCD NUMBER 
055432 016001 055566 MOV SDTBL(RO).R1 3;GET THE CONSTAN 
055434 160105 3$: S R1,R5 :EORM THIS BCD DIGIT 
055420 00240 BLT 4$ °:BR I 
055442 00520 INC R2 S:INCREASE THE BCD DIGIT BY 1 
0554.44 000774 BR 3$ 
55446 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
055450 005702 TST R2 33CHECK IF BCD DIGIT=0 
055452 001002 BNE 34 ‘FALL THROUGH IF 
055454 105716 TSTB = (SP) tISTILL DOING LEADING 0°S? 
055456 100407 BMI 7$ 338R IF YES 
055460 106316 5$: ASLB = (SP) 3MSD? 
055462 103003 BCC 6$ *:BR IF NO 
055464 116663 000001 177777 MOVB =: 1(SP) ,=1(R3) :iVES=~SET T HE SIGN 
055472 03 702 000060 6$: BIS #'O,R MAKE THE BCD DIGIT ASCI1 
055476 052702 000040 7$: BIS 7 i EMAKE IT A SPACE IF NOT ALREADY A DIGIT 
055502 110 MOVB = R2. (R3)+ THIS CHARACTER IN THE OUTPUT BUFFER 
055504 995 9 TST (RO)+ ate INCREMENT 
955506 200 000010 CMP m0. #10 *:CHECK THE TABLE INDEX 
05551 002 46 BLT 3360 DO THE NEXT DIGIT 
055514 - 3 BGT : :60 TO EXIT 
055516 01050, MOV R5,R2 tIGET THE LSD 
0555 764 BR $ £:G0 CHANGE TO ASCII 
0558 ; 105726 8$: TST (Sp)+ zzUAS THE LSD THE FIRST NON-ZERO? 
33596 116668 177777 177776 MOVB- =1(SP),-2(R3) iE YES~=SET THE SIGN FOR TYPING 
55534 10501 9$: CLRB ss (R3) [:SET THE TERMINA 
555 1260 FOV (SP)+,R5 +:POP STACK INTO R 
55540 01260 MOV (SP)+-R3 33POP STACK INTO R 
55542 012602 MOV $b) + Re STACK INTO R 
55 12601 MOV )+oR tipop STACK INTO R 











B 
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O DECIMAL AND TYPE ROUTINE 


a 


MVIMIVIVIMIUIVAIUI 


ooooocooooo @® 
NN wines 
sanaberes § 


(SP)+,RO ; :POP STACK INTO RO 
SDBLK [NOW TYPE THE 
e(SP), 4(SP) tTADJUST THE STACK 
(SP) +; (SP) 

s RETURN TO USER 


C 
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BINARY TO OCTAL (ASCII) AND TYP 


~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RRRRERRRRKRRERAAARAAAAAEATKeAAeKeeKeKKeeeeKeeeneKeeeKeeeneeee 
:RTHIS ROUTINE IS USED ps — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

m +b yet a ccges HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


tac 

7* MOV NUM,=(SP) ;;NUMBER TO BE TYPED 

"hd TYPOS 7:CALL_FOR TYPEOU 

hed BYTE N 7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
s* BYTE M™ 33M= OR 0 

7* 31=TYPE LEADING ZEROS 

s@ ? }O=SUPPRESS LEADING ZEROS 

3% 


ere on trite HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
zest VPOs OR $TYPOC 


te MOV NUM,=-(SP) szNUMBER TO BE TYPED 

TYPON s:CALL FOR TYPEOUT 

{ST YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

3* MOV NUM, -(SP) 3s zNUMBER TO BE TYPED 

3* TYPOC 3:CALL FOR TYPEOUT 

55406 017646 000000 STYPOS: MOV a(SP) ,-(SP) zzPICKUP THE MODE 
05561e 116637 000001 056031 MOVB 1(SP) .$OFILL 3 sLOAD ZERO FILL SWITCH 
055620 112637 056033 MOVB (SP) + +. $0MO OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
055624 062716 000002 ADD #2, (SP) : TADJUST RETURN ADDRESS 
055630 000406 BR STYPON 
055632 112737 000001 056031 S$TYPOC: MOVB #1,SOFILL s3SET THE ZERO FILL SWITCH 
55640 112737 sia lay: 056033 MOVB #6, SOMODE+1 sSET FOR SIX(6) DIGITS 

055646 112737 000005 056030 S$TYPON: MOVB #5,SOCNT 33SET THE ITERATION COUNT 
055654 010346 MOV R3,-(SP) szSAVE R3 
055656 010446 MOV R4,-(SP) 3s SAVE R4 
055660 010546 MOV R5S,-(SP) sSAVE RS 
055662 113704 056033 MOVB SOMODE+1,R4 2 GET THE NUMBER OF DIGITS TO TYPE 
055666 005404 NEG  ~=R4 
055670 062704 000006 ADD 6.R4 s3 SUBTRACT i = MAX. ALLOWED 
055674 110437 056032 MOVB R4, SOMODE ::SAVE IT 
055700 113704 055031 MOVB SOFILL.R4 5; ET THE PERO” FILL SWITCH 
055704 016605 000012 MOV 12(SP),R5 KUP THE INPUT NUMBER 
055710 005003 CLR ':CLEAR THE OUT PUT WORD 
055712 006105 1$: ROL R5 ROTATE MSB INTO ‘'C 
055714 000404 BR 3$ 0 DO MSB 
055716 006105 2$: ROL RS FORM THIS DIGIT 
055720 006105 ROL RS 
055722 006105 ROL RS 
055724 010503 MOV R5,R3 
055726 006103 3$: ROL R3 3:GET LSB OF THIS DIGIT 
055730 105337 056032 DECB SOMODE 3s TYPE THIS DIGIT? 
055734 100016 BPL F NO 
055736 042703 177770 BIC #177770,R3 SIGET RID OF JUNK 
055742 BOT ONe BNE 4$ 33 FOR 
055744 005704 TST R4 :zSUPPRESS THIS 0? 
055746 001403 BEQ 58 33BR IF Y 
055750 005204 4$: iNC R4 ::DON'T SUPPRESS ANYMORE 0°S 


mao 


dD 3 
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BINARY TO OCTAL (ASCII) AND TYPE 
055752 0527 060 BIS #°0,R ::MAKE THIS DIGIT ASCII 
55756 0527 0 4 5$: BIS #° 'R S:MAKE ASCII IF NOT ALREADY 
055762 1103 9 6026 MO R3,8$ +: SAVE TYPING 
095766 104401 560 6 TYPE 8 7:G0 TYPE THIS DIGIT 
05577 105337 0560 7$: dDECB 4s SOCNT *:COUNT BY 1 
055776 003347 BGT 2$ 3: E TO DO 
056000 002402 BLT 6% +:BR IF DONE 
056002 005204 INC R4 +: INSURE LAST DIGIT ISN'T A BLANX 
056004 000744 BR 2$ £:G0 DO THE LAST DIGIT 
056006 012605 6$: MOV (SP)+,R5 RESTORE RS 
056010 012604 MOV (SP)+,R4 RESTORE R4 
056012 012603 MOV (SP) +.R3 RESTORE R3 
056014 016666 000002 000004 MOV 2(SP) .4(SP) 7:SET THE STACK FOR RETURNING 
056022 012616 MOV (SP)+, (SP) 
056024 000002 RTI 3: :RETURN 
56026 000 8$ .BYTE 0 ?:STORAGE FOR ASCII DIGIT 
056027 000 -BYT 0 ss INATOR FOR TYPE ROUTINE 
056030 000 SOCNT: .BYTE 0 S:OCTAL DIGIT COUNTER 
056031 000 SOFILL: .BYTE 0 szZERO FILL SWITCH 
056032 000000 SOMODE: .WORD 0 s ;NUMBER OF DIGITS TO TYPE 


“am 
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TYPE ROUTINE 


056176 


056202 
056206 
056210 
056214 
056220 


S288=8h 
Seaenes 


— 

x8 

~ 

—s 
AON. 


— 


S 2exsssssssxs 

wu Ww Wat SN 

RUNS EVSNS eo 
QOOnNUNN oO 


7 


RN 
onno 


_ 
=] 
w 

Nw 
a 
™N 


001173 


000002 
000001 


000100 


056104 
062606 


000040 


000002 
000011 
000200 


056364 


05624 
00117 


001170 
000001 


056246 
056364 


001242 
001243 


001243 


SEQ 0236 


-SBTTL TYPE ROUTINE 


ARHRERRRRRAARAAAAAeAAAeAeAe AAA eeeeAeKeeeeeeeeeeeeeeeateeeereee 
; #ROUTINE TO TYPE ASCIZ Ret MESSAGE MUST ing holy WITH A 0 BY UE 
3*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
3 *NOTE1: SNULL CONTAINS i CHARACTER Ys BE U USED AS THE FILLER CHARACTER. 


 *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER: CHARACTERS REQUIRED. 
pee : SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
= *CALL: 
#1) USING A TRAP INSTRUCTION 
a TYPE § ,MESADR Z:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3* PE 
ie RESADR 
ve 
$TYPE: TSTB  $TPFLG zz1S THERE A TERMINAL? 
BPL 1$ 7:BR IF YES 
HALT sat etene IF NO TERMINAL 
1$: MOV RO,-(SP) *SAVE RO 
MOV a2(SP) RO $36Er ADDRESS OF ASCIZ STRING 
CMPB ss: HAPTTENV,, SENV RUNNING IN 
BNE *:NO,GO CHECK FOR APT CONSOLE 
BITB § #APTSPOOL,SENVM $3 SP60L MESSAGE TO APT 
BEQ 2$ NO,GO CHECK FOR CONSOLE 
MOV RO,61$ SETUP MESSAGE ADDRESS FOR APT 
JSR PC. SATY3 +:SPOOL MESSAGE TO AP 
61$:  .WOR z: SPOOL ADDRESS 
62$: BITB  &#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
BNE 33YES,SKIP TYPE OUT 
2$: MOVB = <RO)+,=(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ “BR IF IT ISN'T THE TERMINA 
TST (SP)+ 331° TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO TORE RO 
3$: ADD (SP) 3 ZADJUST RETURN PC 
RTI URN 
4$: CMP #HT, (SP) ¢2BRANCH IF <HT> 
COP #CRLF, (SP) : BRANCH IF NOT <CRLF> 
TST (SP)+ s:POP <CR><LF> EQUIV 
TYPE +: TYPE A CR AND LF 
CLRB $CHARCNT ;3CLEAR CHARACTER COUNT 
BR $ [GET NEXT CHARACTER 
5$: JSR PC, STYPEC £:G0 TYPE THIS CHARACTER 
6$: C SFILLC,(SP)+ ::IS IT TIME FOR FILLER CHARS.? 
BNE 2$ +:1F NO GO GET 
MOV SNULL.-(SP) 23GET # OF FILLER CHARS. * NEEDED 
S:AND THE NULL CHAR. 
7$: DECB. 3—s:«1 SP) ?:DOES A NULL NEED TO BE TYPED? 
BLi 6$ +:BR IF NO=-GO POP THE NULL OFF OF STACK 
JSR PC, S$TYPEC *:G60 TYPE A NULL 
DECB $CHARCNT i300 NOT COUNT AS A COUNT 


am 
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TYPE ROUTINE 


FOnnna 


ANNUN 
ae ee ee 
GOOAQUN MOON 


g 


000002 122632 
000015 000002 


056364 
000012 000002 


HORIZONTAL TAB PROCESSOR 


es 


STYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


INCB 
SCHARCNT : . WORD 


S$TYPEX: RTS 


i tierce 
SCHARCNT 


Pepys 
2s 
asTKS 


a$TKB,-(SP) 
#177600, (SP) 
#SXOFF, (SP) 
102$ 


aSTks 
101$ 
» (SP) 


(SP)+ 
a$TPS 


10$ 
2(SP) ,aSTPB 
#CR,2(SP) 


SCHARCNT 
STYPEX 
#LF,2(SP) 
TYPEX 
(PC)+ 


PC 


a$TKB, (SP) 
#177600, (SP) 
+1 


33REPLACE TAB WITH SPACE 
23 TYPE A SPACE 
CH IF NOT AT 


3TAB S 
‘POP SPACE OFF STACK 
33GET NEXT CHARACTER 


23 CHAR IN KYBD BUFFER? 
F NOT 


CHAR 
33STRIP ——- BITS 
S_ CHAR X 


z;WAIT FOR CHAR 


3GET CHAR 
{STRIP IT 


3sFIX STACK 


3:WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
2315 CHARACTER A CARRIAGE RETURN? 


sBRANCH IF NO 
fEYES=CLEAR CHARACTER COUNT 
3218 NOW IF YES LINE FEED? 


COUNT THE C 


HARACTER 
33CHARACTER COUNT STORAGE 


WAS IT XON? 
IF NOT 


SEQ 0237 


—o 
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SCOPE HANDLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 


FRARAAAARAERERERERE OO. 5 THE LOOPING OF SUBTESTS, IT WILL INCREMENT 


:ATHIS ROS CONTROLS TH 


3 AND LOAD THE TEST NUMBER(STS 
ROR FLAG (SERFLG) INTO DISPLAY 


HE Lor 


F SUBTESTS. IT WILL INCREMENT 
) INTO THE vAY<1S:08> « (DISPLAY<7:0>) 


3*AND LOAD THE ER 
3 *THE SuiTCH let. PROVIDED BY THIS ROUTINE ARE: 


:*SW14= ON TEST 
:*SW11= INHIBIT ITERATIONS 
+ *SwO9=1 LOOP ON 
#Su08=1 LOOP ON est IN SWR<7:0> 
3 COPE 3: SCOPE=I0T 
056370 SSCOPE: 
056370 104410 CKSWR sTEST FOR CHANGE IN SOFT-SWR 
056372 032777 040000 122554 1$: BIT #B81T14,aSWR $ELO0P ON PRESENT TEST? 
00 001402 BEQ 9 :NO IF SW14=0 
056402 000137 057032 va JMP SOVER JUMP OVER SCOPE ROUTINE 
*MHHAASTART OF CODE FOR THE XOR ovis aeneatne 
056406 000416 $XTSTR: BR 6$ 331F RUNNING ON THE “‘XOR'' TESTER CHANGE 
3 THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
056410 013746 MOV a#ERRVEC,-(SP) AVE THE CONTENTS OF THE ERROR VECTOR 
056414 012737 teak 000004 MOV #5$, a#ERRVEC 3 FOR TIMEOUT 
056422 005737 177060 TST a4#177060 OUT ON XOR? 
056426 012637 000004 MOV (SP) +, a#ERRVEC 3 SRESTORE THE ERROR VECTOR 
056432 000561 BR $SVLAD O TO THE NEXT TES 
056434 022626 5$: CMP (SP)+, (SP)+ tI CLEAR THE STACK AFTER A TIME OUT 
056436 012637 000004 MOV (SP) +, a#ERRVEC ;:RESTORE THE ERROR VECTOR 
056442 000521 BR *:LOOP ON THE PRESENT TEST 
056444 6$::44MAHEND OF CODE FOR THE XOR’ TESTERAAMAA 
056444 032777 000400 122502 BIT #81T08,aSWR ::LOOP ON SPEC. TEST? 
056452 001421 BEQ 2$ 33BR IF NO 
056454 005046 CLR =(SP) SCLEAR A TEMP. LOCATION 
056456 117716 122472 MO aswR, (SP) :SPICKUP THE DESIRED TEST NUMBER 
056462 001414 BEQ H IF BAD TEST NUMBER IN SWR 
64 022716 000120 CMP #120, (SP) 33 CHECK THE NUMBER IN THE SWR 
056470 002411 BLT $ BRANCH IF TEST NUMBER IS OUT OF RANGE 
056472 011637 001116 (SP) ,STSTNM 33UPDATE THE TEST NUMBER 
056476 005316 DEC (SP) : BACKUP BY ONE 
056500 16 ASL z3SCALE THE TEST NUMBER AS AN INDEX 
056502 062716 057050 ADD s3su08TBL (SP) ORM THE ADDRESS OF TEST POINTER 
056506 013637 001122 MOV a(SP)+,$LPADR fiser LOOP ADDRESS TO DESIRED TEST 
056512 000547 BR SOVER LOOP ON THE TEST 
056514 005726 8$: TST (SP)+ ZECLEAN THE BAD TEST NUMBER OFF OF THE STACK 
056516 105737 001117 2$: TSTB SERFLG ‘HAS AN ERROR OCCURRED? 
0565 001206 BEQ $ 3:BR IF NO 
056524 022737 177777 057700 CMP #1, CPSAVE T:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
056532 001455 BEQ 200 S$ 77KICK AROUND ROUTINE IF SO 
534 01374 900004 MOV VEC += t:SAVE CONTENTS OF ERROR VECTOR 
056540 o1275 056556 000004 MOV i ren *:SETUP ‘TRAP’ R ESS 
056946 013737 177766 057700 mov $6, CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
056556 oie73 177777 057700 2000$: MOV sh os AVE :;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
01 #2001$, (SP) +:SETUP RETURN ADDRESS 


716 056572 
000002 


SEQ 0238 
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SCOPE HANDLER ROUTINE 
056572 012637 
056576 022737 
056604 0014 
056606 0327 
056614 BON ses 
056616 042757 
056624 013746 

56630 01 ce 
0566 O1e73 
056642 011677 
056646 042777 
056654 104177 
056656 012676 
056662 0126357 
056666 
056666 123737 
056674 101015 
056676 032777 
056704 001404 

56706 013737 
056714 46 
056716 105037 
056722 5057 
056726 15 
056730 032777 

56736 001011 
056740 005737 

56744 001406 
056746 005237 
056752 023737 

56760 002024 
056762 012737 
056770 013737 
056776 105237 

57002 113737 
057010 011637 
057014 011637 
057020 005037 
057024 Nea? 
057032 013777 

57040 013716 
057044 $ 

57046 
057050 

000120 
057050 007160 
057052 007470 
057054 7660 
037038 010030 
057! 01016 
057062 oi 64 
057064 012360 

57066 012454 
057070 012540 
057072 01 
057074 013346 


000004 
177777 
000001 


1 
001154 
000176 
122306 
001000 
000000 
001154 


001131 
001000 


a 
g 


segesees 
— es eh ed a eB A 
== ON a = 
MO] > 
MA—OHLNIAQAQ 


057700 
057700 
177766 


001154 
122300 


001117 
122250 
001122 


122216 
001120 


001120 
001206 
001226 


2001$: MOV 
2002S: a 


2003S: 


(SP) + ,ERRVEC 
#-1 , CPSAVE 
#81T00,CPSAVE 
#21700 177766 


(SP) -aSWR 
#81709, asuR 
17 


(SP)+,a(SP) 
(SP)+,SWR 
 teppnapapanateees 
#81T09,aSWR 
SLPERR,SLPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#81T11,aSWR 
SPASS 

1$ 


SICNT 
STIMES ,SICNT 


Vv 
#1,SICNT 
a 
STSTNM,STESTN 
(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 


#1, SERMAX 
STSTNM,@DISPLAY 


SLPADR, (SP) 


TST15+ 





SFa 0239 


ssRESTORE CONTENTS OF ERROR VECTOR 
s3SEE IF ey HAS CPU ERR REG TIMEOUT INDICATION 
POWER MONITOR BIT IS ON 


3sSAVE SWR VALUE 
33GET SOFTWARE SWR ADDRESS 
3 VALUE 


LOOP ON ERROR ON THIS ERROR 
ee SPECIAL POWER FAIL BIT ERROR CALL 
33RESTORE SWR TO ORIGINAL VALUE 
zsRESTORE SWR ADDRESS 


s3MAX. ERRORS FOR THIS TEST OCCURRED? 
+:LOOP ON ERROR? 

[:6R IF NO 

+:SET LOOP ADDRESS TO LAST SCOPE 


33ZERO THE ERROR FLAG 

3:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
33ESCAPE_TO THE NEXT TEST 

fe | aera 


ae Y 
s3IF FIRST matt OF PROGRAM 


$3 OUNT 

33CHECK THE NUMBER OF ITERATIONS MADE 
3 F MORE ITERATION REQUIRED 
3REINITIALIZE THE ITERATION COUNTER 
33SET NUMBER OF ITERATIONS TO DO 
33COUNT TEST NUMBERS 

33SET TEST NUMBER IN APT MAILBOX 
33SAVE SCOPE OOP ADDRESS 


3sO0NLY AL 
DISPLAY TEST NUMB 
3 3FUDGE ~ te ADDRESS 


S P 
33MAX. NUMBER OF ITERATIONS 


* 

= 

bee 
ee eee eee 
mrmmmmmmmmm 
NMNNNMHHNMNONN 
pope pee pee ee ee 
2 SI NOUS WIN 


Wnr—o 
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SCOPE HANDLER ROUTINE 


o570r8 14130 -WORD TST14+ zzSTARTING ADDRESS OF TEST 14 
27108 142 «WORD TST15+ Z3STARTING ADDRESS OF TEST 15 
05710 14670 WORD TST16+ z3STARTING ADDRESS OF TEST 16 
057104 015402 WORD TST17+ ZzSTARTING ADDRESS OF TEST 1 
057106 015504 eWORD TST20+ ZzSTARTING ADDRESS OF TEST 20 
b37118 015770 WORD TST21+ zzSTARTING ADDRESS OF TEST $! 
057112 016106 » WORD ik AE z3STARTING ADDRESS OF TEST § 
057114 Soe WORD TST25+ z3STARTING ADDRESS OF TEST 
057116 016506 WORD TST24+ Z3STARTING ADDRESS OF TEST 24 
057120 017006 eWORD TST25+ Z3STARTING ADDRESS OF TEST 25 
057122 017430 -WORD TST26+ 3zSTARTING ADDRESS OF TEST 26 
057124 017524 -WORD TST27+ Z3STARTING ADDRESS OF TEST 27 
057126 020012 -WORD TST30+ zzSTARTING ADDRESS OF TEST 
057150 020326 «WORD TST31+2 zzSTARTING ADDRESS OF TEST 31 
057132 pcoeie eWORD TST32+2 Z3STARTING ADDRESS OF TEST 32 
057134 021334 ° TST35+2 3zSTARTING ADDRESS TEST 33 
057136 021646 eWORD TST34+2 Z3STARTING ADDRESS OF TEST 34 
057140 022140 «WORD TST35+2 3zSTARTING ADDRE F TEST 35 
057142 022462 -WORD TST36+2 Z3STARTING ADDRESS OF TEST 36 
057144 023120 eWORD TST37+2 Z3STARTING ADDRESS OF TEST 37 
057146 3626 -WORD TST40+2 Z3STARTING ADDRESS OF TEST 40 
057150 024146 eWORD TST41+2 z3STARTING ADDRESS TEST 41 
057152 024464 WORD TST4 %$ z3STARTING ADDRESS OF TEST 4 
057154 5066 WORD TST43+ Z3STARTING ADDRESS OF TEST 4 
057156 025256 WORD TST44+2 33STARTING ADDRESS OF TEST 44 
057160 025616 eWORD TST45+2 zzSTARTING ADDRESS TEST 
057162 026326 eWORD TST46+2 Z3STARTING ADDRESS OF TEST 46 
57164 026622 -WORD TST47+2 z3STARTING ADDRESS OF TEST 4 
057166 027224 -WORD TST5O+2 Z3STARTING ADDRESS OF TEST 50 
057170 ' 027460 WORD TSTS1+2 33STARTING ADDRESS OF TEST 51 
057172 027666 ~WORD TSTS2+2 zzSTARTING ADDRESS OF TEST 26 
057174 030520 eWORD TST53+2 3zSTARTING ADDRESS OF TEST 5 
057176 030772 eWORD TST54+2 Z3STARTING ADDRESS OF TEST 54 
57200 031174 »WORD TST55+2 3zSTARTING ADDRESS TEST 55 
057202 031406 eWORD TST56+2 33STARTING ADDRESS OF TEST 56 
57204 031610 eWORD  TST5S7+2 3zSTARTING ADDRESS TEST 57 
7206 031776 ~WORD TST60+ 33STARTING ADDRESS OF TEST 60 
057210 032214 -WORD TST61+ Z3STARTING ADDRESS OF TEST 61 
057212 032562 WORD TST62+ zzSTARTING ADDRESS OF TEST 
057214 035908 WORD TST63+ 33STARTING ADDRESS OF TEST 6 
057216 03272 WORD TST64+ szSTARTING ADDRESS OF TEST 
057220 033110 eWORD TST65+2 Z3STARTING ADDRESS OF TEST 65 
057222 033349 WORD TST66+ 3zSTARTING ADDRESS OF TEST 66 
0376 4 033556 eWORD TST67+ 33STARTING ADDRESS OF TEST 
057226 034004 WORD TST70+ Z3STARTING ADDRESS OF TEST 70 
057230 034254 eWORD TST71+ Z3STARTING ADDRESS OF TEST 71 
057232 034462 -WORD TST72+ Z3STARTING ADDRESS OF TEST 7 
057234 035006 eWORD TST73+ ZzSTARTING ADDRESS OF TEST 7 
037676 035234 -WORD TST74+ ZzSTARTING ADDRESS OF TEST 74 
57240 035342 -WORD TST75+ 33ST. ADDRESS OF TEST 7 
057242 035466 eWORD TST76+ 33STARTING ADDRESS OF TEST £6 
057244 035616 WORD TST77+ z3STARTING ADDRESS OF TEST 7 
057 035750 ~WORD TST100+ zzSTARTING ADDRESS OF 
057250 03610 WORD TST101+ zzSTARTING ADDRESS OF 
057252 03627 -WORD TST $ z3STARTING ADDRESS OF 
057 036474 WORD TST103+ 33STARTING ADDRESS OF 
057256 036622 WORD TST104+ z3STARTING ADDRESS OF 





SEQ 0240 
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SCOPE HANDLER ROUTINE 


57 68 70 «WORD TST105+ ZzSTARTING ADDRESS OF TEST 105 
57 71 -WORD TST106+ zzSTARTING ADDRESS OF TEST 18 
57264 735 WORD TST107+ Z3STARTING ADDRESS OF TEST 10 

57 755 eWORD TST110+ ZZSTARTING ADDRESS OF TEST 110 
057 6068 WORD TST111+ ZzSTARTING ADDRESS OF TEST 111 
05727 B50 - WORD LEBEL z3STARTING ADDRESS OF TEST Me 
057274 041724 WORD TST113+ Z3STARTING ADDRESS OF TEST 11 
B27678 et WORD = TST114+ 33STARTING ADDRESS OF TEST 114 
05 0456 «WORD TST115+ zzSTARTING ADDRESS TEST 115 
057302 04621 eWORD TST116+2 ZZSTARTING ADDRESS OF TEST 1g 
057304 050554 «WORD TST117+2 ZzSTARTING ADDRESS OF TEST 11 
057306 052642 -WORD TST120¢2 z3STARTING ADDRESS OF TEST 120 


x 
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ERROR HANDLER ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 


RRRRAARERARERAAAAAAAAATAeAAKeeeAAAAKKKAteeeeeKKeteneeKeKeKeenes 
TATHIS ie df 3 WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3 #SAV VE THE ER “78 ‘ TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


:*AND GO TO ERRTYP ON ERR 
EsTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
zsSW09= LOOP ON ERROR 
* ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
057310 105037 057702 SERROR: CLRB =—‘IBSAVE z3CLEAR THE ITEM BYTE SAVE LOCATION 
057314 104410 CKSWR T FOR CHAN Ge IN SOF T-SWR 
057316 105237 001117 7$: INCB = SERFLG :ESET THE ERROR FLAG 
057322 001775 BEQ 7$ LET THE FLAG GO TO ZERO 
057324 013777 001116 121624 MOV STSTNM,@DISPLAY SO OSPLAY TEST NUMBER AND ERROR FLAG 
057332 032777 002000 121614 BIT #B81T10,aSWR 33BELL ON ERROR? 
57340 001402 BEQ 1$ =NO = 
057342 104401 001212 TYPE $BELL 3 RING BEL LL 
57346 005237 001126 1$: INC $ERTTL [COUNT THE NUMBER OF ERRORS 
057352 011637 001132 MOV (SP) , SERRPC <2GET ADDRESS OF ERROR INSTRUCTION 
057356 162737 000002 001132 SUB #2, $ERRPC 
57364 117737 121542 001130 MOVB  aSERRPC,SITEMB zi STRIP AND SAVE THE ERROR ITEM CODE 
057372 032777 001000 121554 BIT #B1T09, aSWR 73SEE IF LOOP ON ERROR IS SET 
57400 001060 BNE 1 ::BRANCH AROUND ROUTINE IF SO 
057402 122737 000177 001130 CMPB w77 SITEMB 33 SEE IF THIS IS THE POWER FAIL CALL 
057410 001454 BEQ 1004$ CH AROUND ROUTINE IF IT IS 
057412 105737 057702 TSTB _IBSAVE 33 SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
057416 001047 BNE 1003$ H IF SO 
057420 022737 177777 057700 CMP #~1, CPSAVE 3ISEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
057426 001445 BEQ *BRANCH I 
057430 013746 000004 MOV ERRVEC,-(SP) 3ISAVE CONTENTS OF ERROR VECTOR 
057434 012737 057452 000004 MOV #1000$, ERRVEC UP ‘TRAP’ RETURN ADDRESS 
097448 013737 177766 057700 MOV 177766, *CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
057452 012737. 177777 057700 1000$: MOV #-1, CPSAVE ;3SET CPU ERROR REGISTER TIMEOUT INDICATOR 
057460 012716 057466 MOV #1001$, (SP) t:SETUP RETURN ADDRESS 
057466 012637 000004 1001$: MOV (SP)+,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
057472 022737 177777 057700 1002$: CMP #~1, CPSAVE ;3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
057500 001420 BEQ 1004 H IF SO 
057502 032737 000001 057700 BIT #B81T00, CPSAVE 3ISEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
057510 001414 BEQ [BRANCH IF OK 
057512 042737 000001 177766 BIC #81T00,177766 ZI CLEAR THE BIT FOUND SET 
057520 113737 001130 057702 MOVB  $ITEMB.IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
057526 112737 000177 001130 MOVB «#177, SITEMB :2SET SITEMB TO SPECIAL POWER FAIL POINTER 
057534 000402 BR 1004$ BRANCH OVER IBSAVE CLEARING 
057536 105037 057702 10038: CLRB =—«XIBSAVE z:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
057542 032777 020000 121404 BIT #B1T13,aSWR ii SKIP TYPEQUT IF SET 
057550 901004 BNE 20$ +:SKIP TYPEOUTS 
057552 004737 057704 JSR PC,ERRTYP +:G0 TO USER ERROR ROUTINE 


uo 
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ERROR HANDLER ROUTINE 


folololololololoj—i=) 
MAMA MUIVIVIT 
> 
Muivi 
NNO 
MNO 


WII 
“ 


057700 
057702 


104401 
iserot 
113737 
004737 
90077 
105737 
001005 
005777 
100002 
000000 
104410 
032777 
001402 
013716 
00 


5737 
001402 
013716 


022737 
001001 
000000 
105737 
001210 


000002 
000000 
000000 
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001217 
000001 


001130 
062616 


057702 
121332 


001000 


001124 
001210 


001210 
054302 


057702 


001242 
057604 


121316 


000042 


20S: 


21$: 
228: 
2s: 
3$: 


4$: 


5$: 


6$: 


CPSAVE: 
IBSAVE: 


RT 
- WORD 
» WORD 


oSCRLF 

#APTENV, SENV 

SITEMB,21$ 
oSATY4 


#B1T09,aSwR 
SLPERR, (SP) 
SESCAPE 
SESCAPE , (SP) 
ASENDAD ,a#42 
6$ 

IBSAVE 

7$ 


0 
0 


SEQ 0243 | 


z RUNNING IN APT MODE 

=NO,SKIP APT ERROR REPORT 

f ITEM NUMBER AS ERROR NUMBER 
z3Set it FATAL ERROR TO APT 


T ERROR LOOP 
‘ieee IF IBSAVE by LOADED 
3 BRANCH IF NOT HALT ON PWR MON BIT ERROR 


S:HALT ON ERROR 

iiSKIP IF CONT INUE 

+: TEST FOR CHANGE IN SOFT-SwWR 
: LOOP ON ERROR SWITCH SET? 


37FUDGE RETURN FOR LOOPING 
oe Hs FOR_AN ESCAPE ADDRESS 


R_IF NONE 
: TFUDGE RETURN ADDRESS FOR ESCAPE 
ssACToi1 AUTO-ACCEPT? 
;sBRANCH IF NO 


aor IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
ANCH BACK TO CALL ORIGINAL ERROR 


7 ;RETURN 
SELOCATION TO SAVE CPU ERROR REG CONTENTS 
3z;LOCATION TO SAVE ITEM BYTE 


Ld 
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-SBTTL ERROR TYPEOUT ROUTINE 
3 7*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 


4 ; *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 
4 UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 
7 ;*PROGRAA UEOUNTER ARE PRINTED ON THE FIRST LIN 
& SSAGE 1S ASSEMBLED, FORMATTED AND PRINTED ON 
9 ; ONE OR “WORE SUCCEEDING LINES; 
10 RED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
1 ‘ SAFTER He ERROR MESSAGE. 
ig 057704 104414 ERRTYP: SAVREG 
14 057706 032777 020000 121240 BIT #S5W13,aSUR :INHIBIT TYPEOUTS?? 
15 057714 001402 BEQ 1$ “NO! ! 
16 057716 000137 060514 JMP 27$ YES!! 
18 :TYPE UNIT NUMBER . DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND 
19 {PROGRAM COUNTER 
20 057722 104401 001217 is: TYPE —, SCRLF ae 
21 057726 104401 060530 TYPE ‘ERTYOO iTYPE "DRVA 
22 057732 013746 001234 MOV $UNIT,-(SP) aie SUNIT FOR TYPEOUT 
057726 104403 TYPOS 3G0 TYPE--OCTAL ASCII 
057740 003 .BYTE 3 tITYPE 3 (S) 
. 057741 000 “BYTE 0 +:SUPPRESS LEADING ZEROS 
sTYPE *DRIVE TYPE’, RM8O FOR UNIT UNDER TEST 
25 057742 013700 001276 MOV AR GE BASE ADDRESS 
26 057746 016000 000026 MOV RMDT (RO) ,RO ‘GET DRIVE TYPE REGISTER 
27 057752 042700 177740 BIC #177740,RO  . :SAVE DRIVE TYPE BITS AND 
28 057756 012737 063512 060000 MOV #SRMBO, 3$ *GET ASCII DRIVE TYPE 
29 057764 022700 000026 CMP #26,RO 1S DEVICE AN RM8O ? 
30 057770 091004 BNE 4$ ht 
31 057772 104401 060565 2$: TYPE  ,ERTYOS :TYPE "* = "* 
32 057776 104401 TYPE ‘TYPE DRIVE TYPE 
33 060000 000000 3$: .WORD 0 *DRIVE TYPE MESSAGE IS STORED HERE 
35 - TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
36 060002 005037 060520 4s: CLR TSTNMB sLOAD TEST NUMBER FOR 
37 060006 013737 001226 060520 MOV STESTN TSTNMB 
38 060014 104401 060535 TYPE E sTYPE ""TST# 
39 060020 013746 060520 MOV {STNMB,-(SP) 3 SAVE TStee FOR TYPEOUT 
060024 104403 TYPOS 3:60 TYPE=-OCTAL ASCII 
060026 003 .BYTE 3 33 TYPE 3 T(S) 
060027 000 “BYTE 0 * SUPPRESS LEADING ZEROS 
40 060030 005037 960522 CLR ERRNMB LOAD 
41 060034 113737 001130 060522 MOVB $ITEMB,ERRNMB :TYPEOUT 
42 060042 001406 BEQ 5$ iSKIP IE NO ERROR CALLED 
43 060044 104401 060545 TYPE  ,ERTYO2 "ERRA’ 
44 060050 013746 060522 MOV ERRNMB, -(SP) LAE ERRNMB FOR TYPEOUT 
54 104403 TYPOS 3G0 TYPE--OCTAL ASCII 
56 003 .BYTE 3 i TYPE 3 


“BYTE 0 UPPRESS LEADING ZEROS 
45 060060 104401 060554 5$: TYPE ,ERTYO3 ‘TYPE "PCs" 


om 
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46 060064 013746 001132 MOV SERRPC,-(SP) 
060070 104403 TYPOS 
06007 006 .BYTE 6 
00 “BYTE 1 
tb 
49 060074 005737 060522 6$: 
50 060100 901002 : BNE $ 
21 060102 000137 060514 JMP 27$ 
26 060106 104401 001217 7$: TYPE SCRLF 
54 060112 105037 060526 CLRB = BOTFLG 
55 060116 105037 060527 CLRB = CHRCNT 
56 060122 013700 060522 MOV ERRNMB RO 
57 060126 122700 00017 CMPBs#'177,,RO 
58 060132 001003 BNE $ 
59 060134 012700 060572 MOV #PFECH,RO 
60 960140 000405 BR 9$ 
61 06014 300 8$: ASL RO 
62 060144 006300 ASL RO 
63 060146 006300 ASL RO 
64 060150 062700 001532 ADD #SERRTB-8. ,RO 
63 060154 011001 9$: MOV (RO) ,R1 
4 060156 001507 BEQ 19$ 
69 *TYPE THE ERROR MESSAGE 
70 060160 01210 10$: MOV (R1)+,R2 
71 060162 00150 BEQ 19$ 
ie 060164 010237 060332 MOV R2,18$ 
060170 005037 060524 CLR BOTADR 
74 060174 112203 11$:  MOVB (R2)+,R3 
75 060176 001454 BEQ 17$ 
6 060200 122703 000015 CMPB Ss HC, R3 
060204 00100 BNE 12$ 
78 060206 105037 060527 CLRB § CHRCNT 
79 060212 000770 BR 11$ 
80 060214 122703 000012 12$:  CMPB  &#LF,R3 
81 060220 001765 BEQ 11$ 
82 060222 122703 000011 CMPB ss #HT,R3 
83 060226 001007 BNE 14$ 
84 0602 1032 7 060527 13$:  INCB  CHRCNT 
85 060234 132737 000007 060527 BITB 4#7,CHRCNT 
86 060242 001572 BNE 13$ 
4 Ocoee 105 9 0527 14$ INCB CARCNT 
89 e 1 2705 anaes CPB iss 
91 0602 102 $ 960524 MOV 2 BOTADR 
2 06098 e037 100 060527 15$: CAPR A. CORENT 
34 060374 013704 060524 MoV BOTADR, RG 
3 Oebsbe 104304 Bese? tlre ERRCHT 
98 ORE §n39b 0332 V iaScR Re 


SEQ 0245 


33 SAVE SERRPC_ FOR Ue Sal 


sz TYPE PROGRAM COUN 
3G0_ TYPE--OCTAL ASCiI 

3:TYPE 6 DIGIT(S) 

z3TYPE LEADING ZEROS 


; GENERATE , re pee Bs ge ERROR NUMBER IS 0 


a aaa CALLED? 
sNO-~EXIT 
sYES-TYPE CRLF 
sCLEAR BOT FLAG 
3 CLEAR sage MY COUNTER 
;RO POINTS TO FIRST OF 
SEE 4 ils ERROR CALL IS SPECIAL POWER FAIL CALL 
{MOVE POWER FAIL ERROR CALL TABLE TO RO 


;FOUR ENTRIES IN ERROR 
; TABLE 


:R1 POINTS TO ERROR MESSAGE 
BRANCH IF NO ERROR MESSAGE 


sR2 =ADDRESS OF MESSAGE STRING 
CH_ IF END OF MESSAGE 
:LOAD ADDRESS OF STRING 
sCLEAR BOT ADDRES 
oe OF STRING?? 


CARRIAGE RETURN?? 


i VES@CLEAR CHAR COUNT 

7GET NEXT CHARACTER 
sLINE FEED?? 

3YES~GET NEXT CHARACTER 

: ORIZONTAL TAB?? 


SADJUST CHARACTER COUNT 


iSPACE?? CHARACTER COUNT 


SAVE ADDRESS oF SPACE 
3END OF LINE?? 


GET" * ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
s TYPE aA 
AS at CTER COUNT 
3SET UP Re FOR TESTING 


2 Sas 
1 
1S Se 
105 060340 
198 Son ere 
107 060 § 
108 06035 
109 060356 
110 060362 
111 060366 
112 060372 
113 060374 
114 

115 

116 060376 
117 060402 
118 060404 
119 060410 
120 060414 
121 060420 
122 060424 
123 

124 060426 
125 060430 
126 060432 
127 060436 
128 060440 
129 060442 
130 060444 
131 060446 
132 060450 
133 060452 
134 060454 
135 060456 
136 060460 
137 060462 
138 060464 
139 060466 
140 060470 
141 060472 
6 060474 
143 060476 
144 060500 
145 060504 
178 060506 
147 060512 
148 060514 
149 060516 
150 

151 060520 
136 060522 
153 060524 
154 060366 
155 0605 
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;REPLACE SPACE 

:TYPE ERROR MESSAGE STRING 
[STRING ADDRESS GOES HERE 
:WAS, STRING TRUNCATED?? 
*YES-TYPE CRLF 

*CLEAR 30T FLAG 

CLEAR CHARACT 


; ORE R 
TYPE REST OF STRING 


3R1 POINTS TO ERROR HEADER TABLE 
BRANCH IF NO HEADER 

3 (ASSUME _NO_ DATA) 

zR2 POINTS TO DATA ADDRESS TABLE 
3R S_TO FORMA 

3PUT HEADER ADDRESS FOR TYPE 
sBRANCH IF END OF HEADERS 

3 (ASSUME END OF DATA) 

sHEADER ADDRESS GOES HERE 

sDATA WITH HEADER?? 

3R4 POINTS TO DATA ADDRESS 

3RS POINTS TO FORMAT 

sWHAT KIND OF DATA?? 

BINARY 


SOCTAL 
DECIMAL 


MORE DATA?? 
TYES-TYPE 2 SPACES 
:AND CON 


[TYPE ONC BLANK LINE 
SBEFORE NEXT HEADER 


TEST NUMBER 
sERROR NUMBER 
sBEGINNING OF TEXT ADDRESS 


11$ 
16$:  CLRB <(R4) 
VB #-1,BOTFLG 
17$: TYPE 
18$:  .WORD 
TS™B = BOTFLG 
BEQ 10$ 
TYPE SCRLF 
CLRB  =« BOTFLG 
CLRB = CHRCNT 
V BOTADR,R2 
V R2,18$ 
VB" ,=(R2) 
TSTB  —s- (R2S+ 
11$ 
:TYPE ERROR HEADER AND ERROR DATA 
19$: | MOV 2(RO) ,R1 
BEQ 27$ 
TYPE $CRLF 
MOV 4 (RO) Re 
MOV 6(RO).R 
20$: MOV (R1)+,218 
BEQ 27$ 
TYPE 
21$:  .WORD 0 
TYPE  ,$CRLF 
TST R2 
BEQ 20$ 
MOV (R2)+,R4 
MOV (R3)+_R5 
22$:  TSTB  (R5)+ 
BMI 243 
BEQ 23$ 
MOV a(R4)+,=(SP) 
TYPDS 
25$ 
23S: V a(R4)+,-(SP) 
TYPOC 
25$ 
24$: MOV @(R4)+,-(SP) 
TYPBN 
25$:  =*‘TST (R4) 
BEQ 26$ 
TYPE ERTY04 
BR $ 
26$: «TYPE S$CRLF 
BR 0$ 
27$: —- RESREG 
RTS PC 
TSTNMB: .WORD 0 
ERRNMB: .WORD 0 
BOTADR: .WORD 
BOTFLG: .BYTE 
CHRCNT: .BYTE 


2B0T FL 
: CHARACTER COUNT 


SEQ 0246 


ao 
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YPEOUT ROUTINE Al 
960530 1 12 126 ERTYOO: .ASCIZ aDRVAAa 
9535 4 04 124 ERTYO1: .ASCIZ @, TEST#@ 
060545 54 105 ERTYO2: .ASCIZ @, ERR#a 
060554 54 120 ERTYO3: .ASCIZ @, PC=@ 
960962 040 g 000 ERTYO4: .ASCIZ 
06056 040 5 04 ERTYO5: “ASCIZ a@-a 
960572 060602 060670 060706 PFECH: PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEFINING TAELES BELOW 
060602 0606 000009 PFECH1: .+ 
060606 12 11 127 “ASCI2 POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
060670 060674 000000 PFECH2: .+4,0 
060674 103 120 125 ASCIZ 2CPUERREG? 
060706 060710 PFECH3: .+2 
060710 057700 000000 “WORD CPSAVE,0 
060714 71 PFECH4: .+ 
060716 000 000 ‘BYTE 0.0 


D 4 
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TTY INPUT ROUTINE 
1 .SBTTL TTY INPUT ROUTINE 
3 © RRARAAAAARAERERARREEEEEEREERERRAEREREREREAEREEERERRERRAAERAREREREE 
*ENABL LSB 
060720 000000 $TKCNT: .WORD 0 :;NUMBER OF ITEMS IN QUEUE 
060722 000000 $TKQIN: .WORD 0 33INPUT POINTER 
060724 000000 $TKQOUT: .WORD 0 SOUTPUT POINTER 
060726 $TKOSRT: .BLKB 1 tSTTY VEYBOARD QUEUE 
060727 STKQEND=, 
EVEN 
3*Tk INITIALIZE ROUTINE 
“#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
3 *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
teCALL: 
te JSR PC,STKINT 
i* RETURN 
060730 005037 060720 $TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE 
060734 012737 060726 060722 MOV SSTKOSRT STKQIN MOVE THE STARTING ADDRESS OF THE 
060742 013737 060722 060724 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
060750 012737 061000 000060 MOV WSTKSRV AA TKVEC :INITIALIZE THE KEYBOARD VECTOR 
060756 012737 000200 000062 MOV #200 @ATKVEC+2 ::'BR'’ LEVEL 4 
060764 005777 120172 TST 33CLEAR DONE FLAG 
060770 012777 120162 MOV #100, ass ‘ENABLE TTY KEYBOARD INTERRUPT 
060776 000207 RTS * TRETURN TO CALLER 


be SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
is tae ee FROM THE INPUT BUFFER AND PUTTING 
z*IF THE CHARACTER IS A ‘'CONTROL-C’* (“C) STKINT IS CALLED AND 
[UPON RETURN EXIT IS MADE TO THE "‘CONTROL=C"’ RESTART ADDRESS (SHUT) 


061000 117746 120156 tees MOVB sig -(SP) 3 sPICKUP THE CHARACTER 
061004 042716 177600 BIC wc t (SP) ?:STRIP THE JUNK 
061010 021627 000021 CMP t:1S IT A RANDOM XON? 
061014 001002 BNE {see 3: H 

061016 005726 TST (SP) + *:CLEAN RANDOM XON OFF STACK 
061020 2 RTI + :RETURN 

061022 30S: 

061022 021627 000003 CMP (SP) #3 331$ IT A CONTROL C? 
061026 001007 BNE + :BRANCH 

061030 104401 062126 TYPE SCNTLC :TYPE A CONTROL-C (*C) 
061034 004737 060730 JSR PC, $TKINT SHINIT T HE KEYBOARD 
061040 005726 TST (SP) + :CLEAN UP STACK 

061042 000137 062170 JMP SHUT : CONTROL C RESTART 
061046 021627 000007 1$: CMP (SP) ,#7 331S 1T A CONTROL G? 
061052 001004 BNE CK IF NO 

061054 022737 000176 001154 CMP #SWREG, SWR t21S SOFT-SWR SELECTED? 
061062 001500 BEQ 6$ £:G0 TO SWR CHANGE 
061064 2$: 

061064 022737 000001 060720 CMP #1, $TKCNT s31 THE QUEUE FULL? 
061072 001004 BNE $ 83 CH IF NO 

061074 104401 001212 TYPE ,$BELL SIRING THE TTY BELL 


= 
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ee ee ee ee ee ee ee ed ed ed ed od od od = 


Sata atta otto tod ooo ood deeded aad 86 
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005726 TST (SP)+ szCLEAN CHARACTER OFF OF STACK 
000451 BR 5$ trEXIT 
021627 000023 3$: CMP (SP) ,#23 3318 IT M, CONTROL=S? 

001021 BNE 32$ SBRANCH IF 
005077 120042 CLR asTKsS i :DISABLE TTY KEYBOARD INTERRUPTS 
909726 TST (SP)+ [i CLEAN CHAR OFF STACK 
105777 120034 31$: STB  aSTKS S:WAIT FOR A CHAR 
100375 BPL 31$ +:LOOP UNTIL ITS THERE 
117746 120030 MOVB asTke (SP) *:GET THE CHARAC ER 
042716 177600 BIC #°C177, (SP) T:MAKE IT 7-BIT ASCII 
022627 000021 CMP (SP)+,#21 331$ IT A CONTROL~0? 
1366 BNE ‘BRANCH IF NO 
012777 000100 120006 mov #100, a$TKS i 7REENABLE TTY KEYBOARD INTERRUPTS 
nitet ya 060720 32$: INC STKCNT 33 COUNT THIS CHARACTER 
021627 000140 CMP (SP) ,#140 3318 IT UPPER CASE? 
002405 BLT CH IF YES 
021627 000175 CMP (SP) ,#175 1S IT A SPECIAL CHAR? 
003002 BGT 3: IF YES 
042716 000040 ) BIC #40, (SP) T:MAKE IT UPPER CASE 
112677 177516 4$: MOVB = (SP5+, a$TKQIN 33AND PUT IT IN QUEUE 
005237 060722 INC $TKQIN ‘UPDATE THE POINTER 
023727 060722 060727 CMP STKQIN, #STKQEND 3360 OFF THE END? 
001003 BNE : BRANCH IF NO 
012737 060726 060722 MOV WSTKQSRT,STKQIN ::RESET THE POINTER 
000002 5$: RTI 3 ZRETURN 
FRRAAAAAAEEAAEAARAEAAAAERRERERERAAAAARRERERERRRERERERREREERRREREREE 
3 SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
teSERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP 
**CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
022737 000176 001154 $CKSWR: CMP ASWREG, SUR 331S THE SOFT-SWR SELECTED 
001124 BNE 5$ t:EXIT IF NO 
105777 117714 TSTB asiks 2271S A CHAR WAITING? 
100121 BPL t:1F NOT, EXIT 
117746 117710 MOVB ay -(SP) YES 
042716 177600 BIC wel t (SP) 3iMAKE IT 7-B1T ASCII 
021627 000007 CMP i318 IT A CONTROL- 
001300 BNE t:1F NOT, PUT IT In” THE TTY QUEUE 
TZAND EXIT 
se eutnna Te PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT $ 
*SCONTROL IS PASSED TO THIS POINT FROM EITHER THE TY INTERRUPT SERVICE 
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP C RESULT OF A 
**CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
123727 001150 000001 6s: CMPB  $AUTOB,,#1 :ARE WE RUNNING IN AUTO-MODE? 
001674 BEQ 2$ 33BRANCH IF Y 
005726 TST (SP)+ S:CLEAR CONTROL-G OFF STACK 
004737 060730 JSR PC, S$TKINT S:FLUSH THE TTY INPUT QUEUE 
005077 117652 CLR astks SO TSABLE TTY KEYBOARD INTERRUPTS 
112737 000001 001151 MOVB = #1, SINTAG tISET INTERRUPT MODE INDICATOR 
104401 06214 TYPE  ,$CNTLG z:ECHO THE CONTROL-G (4G) 
104401 06214 SGTSWR: TYPE ;S$MSWR 33 TYPE CURRENT CONTENTS 
013746 000176 MOV SWREG,-(SP) [SAVE SWREG F 
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104402 TYPOC 7:60 TYPE=-OCTAL ASCII YALL DIGITS) 
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061420 Oo lger 000025 
061426 104401 062133 
000006 


961640 021627 000015 
061446 005766 000004 
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061454 016677 000002 
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726 000060 
000002 


RVENSR 
SF 


000002 
056616 177776 
001216 
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000001 
117544 


117472 


000001 
117450 


19$: CLR 


7$: TST8 
BPL 


8$: JMP 


9$: CMP 


20$: 


10$: CMP 


17$: INC 


18$: TYPE 


BR 
-DSABL LSB 


23 RARAAAAAAAEEAAAAAAKEREEERERERARRARARAAAAERERERAEERREREEREREREREEE 


-(SP) 
asia, (SP) 
(SP) .#3 
»SCNTLC 
#6.S 
SINTAG, #1 
#100, a$TKS 
SHUT 


(SP) ,#25 
2SCNTLU 
#6,SP 


1 
#100,aSTKS 


PC, ,$TYPEC 
(SP) ,#60 


(SP) ,#67 


#60, (SP)<« 
2(SP) 


2(SP) 
=2(SP), (SP) 


S$QUES 
80s 


33PROMPT FOR NEW SWR 
i ge COUNTER 
:3 THE — ow 


73PICK UP CHAR 
33MAKE IT 7-BIT ASCII 


iil Ae A CONTROL-C? 
SIVES, ECHO CONTROL=-C (*C) 
AN STACK 
ae :REENABLE TTY KEYBOARD INTERRUPTS? 
3 ALLOW TTY pA poy INTERRUPTS 
2315 a A CONTROL-U? 
3eYES, ECHO CONTROL-U (“*U) 
PREVIOUS INPUT 
SILeT’ S TRY IT AGAIN 
2318 IT i. <CR>? 
H IF _NO 
ziYES. i", ue FIRST CHAR? 


Ss a 
tae <CR> AND < 
7 RE-ENABLE TTY <eD. INTERRUPTS? 


2 oR EAENA H I 
ria Ma TTY KBD INTERRUPTS 


2218 THs THe FIRST CHAR 
H_IF YES 
330, SHIFT PRESENT 
33 CHAR OVER TO MAKE 


r FOR NEW ONE. 
3 3KEE T OF CHAR 
33SET W CHAR 
32GET . NEXT ONE 
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an CACO wu 
GOERS OOO NA 


RRRERFEKESESEEEE 
nO 


eee ee cee ee ce ee ed ed ed ed ed od nd = 


S888 


“ 
MON 


ways ssS 
s=z2secs 
Sau 
FWFWNE SS 

WANS SUsrgaas 


Succ 


NS 
=—Mur 


s 


062116 
062126 


000177 


000134 
062114 
177777 
062116 


062114 
062114 


000134 
062114 


000025 


000002 


000004 


060727 


060724 


062114 


062114 
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tut ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


te RDCHR 3:GET A CHARACTER FROM THE QUEUE 
ie RETURN HERE [CHARACTER IS ON THE STACK 
Se <IWITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,-(SP) ;:PUSH DOWN THE PC AND 

MOV gcSPS, 2(SP) 


CLR ate 3IGET READY FOR A_CHARACTER 
sPUT NEW PS ON STACK 


MOV #805. ~(SP) pur NEW PC ON STACK 
RTI 33POP NEW PC AND PS 


TST a 33WAIT ON A CHARACTER 


DEC $TKCNT ::DECREMENT THE COUNTER 
MOVB © @STKQOUT,4(SP) 33GET ONE CHARACT 
INC TKQOUT [UPDATE THE POINTER 
CMP $TKQOUT, WSTKQEND  ; :DID It G0 OFF OF THE END? 
28: MoV #STKQSRT, sTKaoUT’ : igRESET THE POINTER 
T stERHERAEAEARERRHREEREEREEEERERtERetereeteeeeeneneeeeeenes 
STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3* RDLIN : INPUT A STRING FROM THE T 
7* RETURN HERE S ADDRESS OF FIRST OMANACTER “wit BE ON THE STACK 
3* t: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) ZSAV 
CLR . *:CLEAR THE RUBOUT KEY 
1$: MOV #STTYIN,R3 $IGET ADDRESS 
2s: C #STTYINGS. RS od FULL? 
BLOS 6 4$ 3: YES 
RDCHR G0 Hae ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) 33GET CHARACTER 
10$:  CMPB  #177,(R3) t:IS IT A A RUBOUT 
BNE 5$ ::BR IF NO 
TST (SP) t:1S THIS THE FIRST RUBOUT? 
BNE ':BR IF 
move #'\,9$ :: TYPE A BACK SLASH 
MOV #-1, (SP) :3SET THE RUBOUT KEY 
6$: DEC R3 : BACKUP BY ONE 
CMP R3,ASTTYIN 23 STACK EMPTY? 
BLO ‘BR IF YES 
MOVE (R3) 98 : SETUP TO TYPEOUT THE DELETED CHAR. 
BR 8s $360 READ ANOTHER CHAR. 
5$: TST (SP) i :RUBOUT k KEY SET? 
BEQ 7$ IF 
MOVB = #"\,,98 s:TYPE A NBACK SLASH 
TYPE es, 
CLR z:CLEAR THE RUBOUT KEY 
7$: CMPB 5, (R3) 31S CHARACTER A CTRL U? 
BNE 8$ °:BR IF NO 


NOUSWN 
RERES 





062076 


g 


RERRERRERR 


7 
4 
04 
12 
14 
15 
16 
2 
3 
4 
4 
5 


AUowo 
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-“"0o—-00——4 


at a ed — —d abd — 
NE=SSSeEssus 
Ww 


NEWUNE NE EO 


Seaaeares 
SETeNSSS 


3 
3 Eloes Ss 


oOo 
Sse 
wou g 
~WN™NRD 


062133 
000022 


001217 
062116 


000002 
000004 


4$: 
3$: 


9$: 


STTYIN: .BL 


SCNTLU 
#22, (R3) 
3 


(R3),9$ 
#15, (R3)+ 
=1(R3) 


/*C/<15><12> 
aN AL el 
/*G/<15><12> 


<15><12>/SWR = 
/ NEW = / 


/ 


3sTYPE_A CONTROL ‘U"" 
33 TART 


VER 
331S CHARACTER A ‘“R'? 
: BRANCH IF NO 
EAR renee 
hie 


:3CL 

TYPE 

CETYPE THE INPUT. STRING 

360 PICK WP, ANOTHER CHACTER 
YPE A 

SICLEAR THE BUFFER AND LOOP 

3:ECHO THE CHARACTER 


23 CHECK FOR RETURN 


IF NOT RETURN 
SICLEAR RETURN (THE 15) 
23 TYPE AL 
¢ AN RUBOUT KEY FROM THE STACK 
RESTORE RS 


3 SADJUST THE STACK AND PUT ADDRESS OF THE 
ae FIRST ASCII CHARACTER ON IT 


7 RETURN 
3s STORAGE FOR ASCII CHAR. TO TYPE 
3 TERMINATOR 


SanesenNe 8 BYTES FOR TTY INPUT 


rhb alle og “ 
2 CON OL ‘'G’’ 


sANY ves PRESENT ? 


£60 TO STAR 
;FUDGE NO DRIVES IN MAP 
RETURN TO SEOP 


SEQ 0252 


mao 


wees 


I 4 
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READ AN OCTAL NUMBER FROM THE TTY 
1 «SBTTL READ AN OCTAL NUMBER FROM THE TTY 


© RRRAAERAEAARRAREREAAEREAEEREREEEEAERARREARAEREREEEREREREREEERERRERE 


S*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
i # CHANGE !T TO BINARY. 
:* RDOCT ::READ AN OCTAL NUMBER 
7* RETURN HERE +:LOW ORDER BITS ARE ON TOP OF THE STACK 
* *:HIGH ORDER BITS ARE IN $HIOCT 

062212 011646 SRDOCT: MOV (SP) ,=(SP) :;PROVIDE SPACE FOR THE 

062214 016666 000004 000002 MOV 4 (SPS ,2(SP) INPUT ER 

062222 010046 MOV RO,-(SP) *:PUSH RO ON STACK 

062224 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 

062226 010246 MOV R2,=(SP) + PUSH R2 ON STACK 

062230 10441 1$: RDLIN +:READ AN ASCIZ LINE 

062232 012600 MOV (SP)+,RO 7:GET ADDRESS OF 1ST CHARACTER 

0622 005001 CLR R1 3:CLEAR DATA WORD 

062236 005002 CLR R2 

062240 112046 2$: MOVB (RO) +, =(SP) ::PICKUP THIS CHARACTER 

062242 01412 BEQ 3$ t:IF ZERO GET OUT 

062244 006301 ASL R1 zi%2 

062246 006102 ROL R2 

062250 006301 ASL R1 r2%4 

252 006102 ROL R2 

062254 006301 ASL R1 3738 

062256 006102 ROL R2 

062260 042716 177770 BIC #°C7, (SP) z:STRIP THE ASCII JUNK 

062264 062601 ADD (SP)+,R1 S:ADD IN THIS DIGIT 

2266 000764 BR 2$ 3 

062270 005726 3$: TST (SP)+ 7: CLEAN TERMINATOR FROM STACK 

062272 010166 000012 MOV R1,12(SP) T:SAVE THE RESULT 

062276 010237 062312 MOV R2,$HIOCT 

062302 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

062304 012601 MOV (SP)+.R1 ?:POP STACK INTO R1 

062 012600 MOV (SP)+.RO +:POP STACK INTO RO 

062310 000002 RTI + :RETURN 

062312 00C000 SHIOCT: .WORD 0 t:HIGH ORDER BITS GO HERE 


J 
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000004 000002 


-SBTTL TRAP DECODER 


eRAReReeReeKReRAAAeeeAeeeeeAeeAeeKeeAeKKeeeneeeAeKeeeeneeeeess 

3 STHIS ROUT IN WILL PICKUP THE LOWER BYTE OF i a INSTRUCTION 
3*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
[*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


STRAP: MOV oisP) =(SP) 3 s ASSUME THE STATUS OF 


BIC ($P) 33 THE CALLER--DO NOT ALLOW 
MOV ns. otSP) 33_T-BIT TRAPS 
RTI th THE NEW STATUS 

1$: MOV RO,-(SP) sSAVE_R 
mov 2($P), RO 33GET TRAP ADDRESS 
MOVB (RO) ,RO i6ET RIGHT BYTE OF TRAP 
ASL RO POSITION FOR INDEXING 
MOV $STRPAD(RO) ,RO : HINDEX TO TABLE 
RTS RO 33G0 TO ROUTINE 


zzTHIS IS USE TO HANDLE THE "’GETPRI'* MACRO 


STRAP2: MOV (SP) ,=(SP) z:MOVE THE PC DOWN 
MOV 4(SPS ,2(SP) i MOV VE THE PSW DOWN 
RTI S:RESTORE THE PSW 
.SBTTL TRAP TABLE 
z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
[*BY THE ‘TRAP’ INSTRUCTION 
: ROUTINE 
$TRPAD: .WORD 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTI 


: (10: NE 
$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
33 (10 (NO LEADING ZER 


STYPON ;;CALL=TYPON 
STYPDS SICALL= TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


SGTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR Lami OY 92h fs vest FOR CHANGE IN SOFT~SWR 
SRDCHR ;;CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER TINE 
SRDLIN #3CALL=RDLIN Leet $34 ved 1 tty TYPEIN STRING ROUTINE 
$RDOCT ALL=RDOCT TRAP+15(104415) READ AN FROM TTY 
SSAVREG :CALL=SAVREG TRAP+14(104414) SAVE RO-R5 ROUTINE 

SRESREG ;;CALL=RESREG TRAP+15(104415) RESTORE RO-R5 ROUTINE 





ma 
=a 
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ROUTI 
-SBTTL POWER DOWN AND UP ROUTINES 


© RRRAARAEAEEEREREEREEREREEREREAAEARAERERARREERERRREREREEEREREERERRE 


“POWER DOWN ROUTINE 























01 737 062562 000024 $PWRDN: MOV WSILLUP,@#PWRVEC :;SET FOR FAST UP 

012737 000340 000026 MOV #340, OPPURVEC* :;PRI0: :7 

010046 MOV RO,-(SP) H RO ON STACK 

010146 MOV R1,-(SP) SOUS R1 ON STACK 

010246 MOV R2,-(SP) +:PUSH R2 ON STACK 

010346 MOV R3,-(SP) :PUS C 

010446 MOV R4,-(SP) + PUSH R4 ON STACK 

910346 MOV R5,-(SP) +:PUSH R5 on STACK 

017746 116476 MOV asuR,-(SP) 3 3PUS STACK 

010637 062566 MOV SP, $SAVR6 + SAVE =" 

012737 062474 000024 MOV #SPWRUP ,@#PWRVEC :;SET UP VECTOR 

000000 HALT 

000776 BR .-2 : HANG UP 

SRRAREERERREERRERERREREEREREEREEREERRREERERERRRERERERRERERRREERE 

:POWER UP ROUTINE 

012737 062562 000024 $PwWRUP: MOV WSILLUP,Q#PWRVEC ;:SET FOR FAST DOWN 

013706 062566 MOV SSAVR6, SP Pp 

005037 062566 CLR SSAVR6 SIWAIT LOOP FOR THE TTY 

005237 062566 1$: INC SSAVR6 3:WAIT FOR THE INC 

001375 BNE 1$ [OF WORD 

012677 116430 MOV (SP)+,@SWR 3 POP STACK INTO aswR 

012605 MOV (SP)+,R5 POP STACK INTO R5 

0126 (SP)+,R4 tip STACK INTO R4 

012603 MOV (SP) +.R3 t:POP STACK INTO R3 

012602 MOV (SP)+,R2 7:POP STACK INTO R2 

012601 MOV (SP)+,R1 33POP STACK INTO RI 

012600 MOV (SP) +.RO =:POP STACK INTO RO 

012737 062422 000024 MOV ASPWRON, @APWRVEC :;SET WP THE POWER DOWN VECTOR 

012737 000340 000026 MOV #340 BaPURVECSD s TPRIO 

104401 TYPE RE PonT THE POWER FAILURE 

062570 SPWRMG: gWORD SPOWER +;POWER FAIL MESSAGE POINTER 

000000 SILLUP: HALT >; THE POWER UP SEQUENCE WAS STARTED 

000776 BR 72 +: BEFORE THE POWER DOWN WAS COMPLETE 

000000 SSAVRG: 0 ::PUT THE SP HERE 





OWER: .ASCIZ <15><12>"'POWER"’ 
~EVEN 


mo 


















APT COMMUNICATIONS ROUTINE 


000001 
000001 


000001 


mM 
-0oo — 
oon = 
S ~ 
~“ 
Wo 
NUNN 


063042 
000001 
000100 


e 
oO 
WSns 
mee 
NAL NO atone tan 
ONO 


000004 
000002 
001222 
001236 


2 

Nm 

:- 

o nh 

eessee 

SasNae te 
SSSOSSSSs 

NUMNOOUN SW 


3 
32 
sass 

3 


001236 


062714 010037 001240 
062720 012737 000004 
000413 
062730 017637 000004 
062736 062766 000002 


062744 013746 177776 
062750 004737 056034 
000000 







062754 

062756 

062756 105737 063044 

062762 001416 

062764 005737 001242 

062770 001413 

062772 005737 001222 

062776 001375 

063 017637 000004 
062766 sb 

063014 005237 00122 

063020 105037 063044 

063024 105037 063043 

063050 105037 063042 

063034 012601 

063036 012600 

063040 000207 

063042 









063044 
063042 


063044 


001242 
001243 


000004 


001222 


062754 
000004 


001224 
000004 
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~SBTTL APT COMMUNICATIONS ROUTINE 


FRARAREREERARRREREREREREREERERERRRRAERREEREREREERRERRRRERERREREREE 


1$: 


2s: 


3$: 


12$: 


-E 
APTSIZE = 
APTENV = 
APTSPOOL= 1 0 


APTCSUP = 040 


#1,$FFLG 
a] :SHFLG 


S$ATYC 
#1,$FFLG 
RO,-(SP) 
R1,=(SP) 
$MFLG 
WAPTENV, SENV 
#APTSPOOL ,SENVM 
94 (SP) -RO 
#2,4(SP 

sus S$MSGTY PE 

RO SMSGAD 

&R (RO)+ 

SMSGAD, »RO 


RO, $MSGLG 
#4, SuscTYPE 


SMSGTYPE 
a4(SP) ,SFATAL 
#2,4(SP) 


$M 
(SP)+,R1 
(SP)+, “RO 


33TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


z3T0 ONLY REPORT FATAL ERROR 
: :PUSH RO ON STACK 
R1 ON STACK 
$ SHOULD TYPE A MESSAGE? 
{ZOPERATING UNDER APT? 
33 SHOULD SPOOL MESSAGES? 
t:GET MESSAGE ADDR. 
RETURN ADDR. 

i 3SEE IF “bone W/ LAST XMISSION? 
z31F ON _ WAIT 

:PUT ADDR IN MAILBOX 
+: FIND PA OF MESSAGE 

:SUB START OF MESSAGE 
IGET MESSAGE LNGTH IN WORDS 
;3PUT LENGTH IN MAILBOX 
t:TELL APT TO TAKE MSG. 
33PUT MSG ADDR IN JSR LINKAGE 

“BUMP RET TURN ADDRESS 

7PUSH 199776 ON STACK 
S:CALL TYPE MACRO 
; SHOULD REPORT FATAL ERROR? 

TIF NOT: 
3 RUNNING UNDER APT? 


oF 
: FINISHED ryt MESSAGE? . 


23GET ERROR # 
RETURN ADDR. 


> BUMP 
ti TELL APT To TAKE ERROR 
iE CLEAR FATA L FLAG 
[:CLEAR LOG FLAG 
: CLEAR HESSAGE FLAG 
::POP STACK INTO R1 
3 3POP STACK INTO RO 


Z MESS. FLAG 
SIFATAL FLAG 


SEQ 0256 












CEC 
M 
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CONSOLE MESSAGES EF 


-SBTTL CONSOLE MESSAGES 






2 

3 063046 075 000 EQUALS: .ASCIZ a=@ 

4 063050 101 114 114 ALL: eASCIZ @ALL@<CRLF> 

5 063055 040 077 040 QUES: .ASCIZ @7? 4 

§ 063061 054 040 000 ASCIZ @, @ 

063064 200 124 131 MSHELP: .ASCIZ <CRLF>@TYPE HELP TEXT (L) N? @ 

8 063115 200 122 115 CNSLO1: .ASCIZ <CRLF>@RMCS1= 

9 063125 040 114 111 CNSLO2: .ASCIZ @ LIMITS = LO= 160000, HI= 17XXXx@<CRLF> 
10 063167 122 115 126 CNSLOS: .ASCIZ VEC= 

11 063176 040 114 111 CNSLO4: .ASCIZ @ LIMITS = LO= 0, HI= 1000@<CRLF><LF> 
\¢ 06323 200 124 131 CNSLO7: .ASCII <CRLF>@TYPE “‘A’’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@ 
13 06331 200 101 116 eASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
14 063374 200 CNSLO8: .ASCII <CRLF> 

15 063375 040 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL INPUT@<CRLF> 

16 063416 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 

17 063445 116 117 116 NONE: .ASCIZ /NONE/ 

18 063452 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): / 

19 063466 104 122 111 MSGDRV: .ASCIZ /DRIV 

20 063474 200 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 

21 963512 122 115 070 80: .ASCIZ / 
22 063517 040 116 117 NOTRM: .ASCIZ / AN_RM80/ 

235 063534 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 

24 063551 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
25 063566 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 

26 063605 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 

27 063616 040 117 116 UNTON: .ASCIZ / ONLINE/ 

28 063626 116 000 N: eASCIZ = /N/ 
29 063630 131 000 Y: eASCIZ = /Y/ 

30 063632 040 BLNKS4: .ASCII / / 

31 063633 040 BLNKS3: .ASCII / / 

32 063634 040 BLNKS2: .ASCII / / 

3 063635 040 000 ye ASCIZ // 


N 
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FUNCTION CODE TABLE 


NONONONONON) 2 2 2 a oe 


NINA aS) 


41 


$2 063640 
57 063640 020000 


-SBTTL FUNCTION CODE TABLE 


sTHE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


- BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
TIF ATA SH HOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED. OTHERWISE, 
:BIT 3 als ZERO INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
MT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE = BIT 14 IS SET _IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A we FUNCTION CODE 
SIF WRITE ERRORS ARE ENABLED DURING THE EXECUTION THAT COMMAND . 
7THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE'’, Mac, “DPE”, “UPE™. 


IAE = BIT 10 IS SET IN THE ENTRY FOR 7 GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE = BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
COMMAND, THE ER ne eee BY THIS BIT ARE ‘‘TRE’’, “DLT’’, “NEM, 


5 BIT 08 IS NOT USED. 

HCE = BIT 07 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
ZHEADER ERRORS INCLUDE "HCRC’’, "HCE’’, ‘FER’, AND ‘BSE’. 


ECH = BIT 06 IS SET IN THE oiniee FOR A GIVEN FUNCTION CODE 
SIF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION oF THAT 


;COMMAND. THESE ERRORS INCLUDE ‘MDPE’’, "DCK'*, AND ‘ECH’ 

é BIT 05 IS NOT USED. 

; BIT 04 IS NOT USED. 

: BIT 03 IS NOT USED. 

; BIT 02 IS NOT USED. 

: BIT 01 IS NOT USED. 

; ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDIB: sFUNCTION CODE TABLE 


-WORD OPI 3NOP 
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FUNCTION CODE TABL 


OPI!ATA!ILF!IVC 
ATA! OPI! IVC! IAE 
ATA! OPI! IVC 

OPI 

OPI! IVC 

OPI !ATA! IVC 
OPI!ATA! IVC 

OPI 


OPI 
OPI !ATALILF! IVC 
OPI !ATALILF!IVC 


!Ive 

WCE!OPI IVC! IAE! AOE !HCE!ECH 

WCE! OPI! IVC: AE! AOE ‘HCE: ECH 
eliavalite tIVvC 
OPI!ATA !Ivec 
OPI! IVC ULE TAE | ADE !HCE 
OPI! IVC!WLE! IAE!AOE 
OPI: ATA‘ IL LF IvC 
OPI !ATALILF!IVC 
OPI! IVC! TAE!AOE!HCE!ECH 
OPI! IVC! JAE !AOE!HCE!ECH 
OPI!ATA!ILFIIVC 
OPI !ATALILF! IVC 





ZILLEGAL FUNCTION (2) 
3SEEK 

;RECALIBRATE 

DRIVE CLEAR 

:RELEA SE 

sOF FSET 

RETURN yA CENTERLINE 
READ IN ET 

ite 

tata FUNCTION 
HILLEGAL FUNCTION 


WRITE CHECK HEADER AND DATA 
vie FUNCTION (54) 


SEQ 0259 


C2 


Ceo .—n— ———n.?.:.:0—CC 


¢ 5 
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ATTENTION (ATA) TABLE EF 
«SBTTL ATTENTION (ATA) TABLE 

740 001 ATNTBL: .BYTE 1. 

74) 002 BYTE 2. 

74 004 BYTE 4. 

74 010 BYTE 8. 

744 020 -BYTE 18. 

745 040 -BYTE 32. 

374 100 BYTE 64. 

374 200 -BYTE 128. 


BODNOULS WN 
rtottotattates 
WAN 


— 





SEQ 0261 
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DATA PATTERN TABLE 





SOSPERERRRERERERERRERRERERE DSRS SSS SS ORISSESSSSS 
: SOS BRSSARR NS SARESSESSS ssess 58 sees Sesse5 S 
Boss aSssaNN SND SSSSSSSes SSSSSSSS==3 
~ Mt CONS COUT 
S SeaaS3 


RARNERSYY SOLNLIIS SON LOANS $PBNALIYY BONN LSISSONLS 


el ltd oooo COCO e rer ereree 


Seovucovpprorcsseerrrsececcereetccceeseeeccestrreeteeee 


MA TUN OR. nor CUM TOR. 
HANNON ODOR MNT NO DOLE TOOT LLAM MAG ARARAST VIS S SS SS RA NARART 


774 001 
776 
000 


$98858 34 


SEVSRAG 


ERRRAPERPERPERA ES 


SARNSSELS 


Oo 


RALRVLSISVRARANISSSLISTLARSS 


Ls) 
N 


NSRRVOHRVORR 


QESRESLSSE 


seFTSEPSTEE 


IN 
ERSSANSSENVSKE 


Sass 


SEVKGRELLS SE 
& 


SaaNS 


ee eb ed ed ed dd I 


SSERER 
3 
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02 -WORD 8192. 
01 $609 -WORD 4096. 
004000 -WORD 2048. 
$s sie 
090400 -WORD 256. 
200 eWORD 128. 
000100 - WORD . 

0 -WORD 32. 
000020 -WORD 16. 
000010 -WORD 8. 
000004 WORD 4, 
000002 -WORD 2. 
000001 ° nd 5 
177777 -WORD 65535. 
177776 -WORD 65534. 
177774 -WORD 65532. 
177770 -WORD 65528. 
177760 -WORD 65520. 
177740 eWORD 65504. 

00 -WORD 65472. 
177600 -WORD 65408. 
177400 -WORD 65280. 
177000 WORD 65024. 
176000 WORD 64512. 
174000 -WORD 63488. 
170000 eWORD 61440. 
160000 eWORD 57344. 
140000 WORD 49152. 
100000 -WORD 32768. 
000000 ~WORD 0. 
000000 «WORD g; 
100000 WORD 2768. 
140000 eWORD 49152. 
1g eWORD 57344. 
170000 -WORD 61440. 
174090 -WORD 63488. 
176000 WORD 64512. 
177000 ~WORD 65024. 
177400 -WORD 65280. 
177600 -WORD 65408. 
177700 -WORD 65472. 
177740 eWORD 65504. 
177760 -WORD 65520. 
177770 ~WORD 65528. 
177774 -WORD 65532. 
17777 eWORD 65534. 
17777 -WORD 65535. 
133 3 -WORD 43690. 
152 ¢ ~WORD  43690./2 
1 35 $ ~WORD 4 $90 . 
17777 -WORD 65535. 
17777 eWORD 65534. 
17777 -WORD 65533. 
177773 -WORD 65531. 
177767 ~WORD 65527. 


3 
53 


fa 
SSNS OT 


+ 
P] 
2 


FUN—SOO0Onoul > 


Mronrnrnw———— 0 


OOWNNAVIO 


SSS SS SSS SSS SSS SSIS SSS 
SERENE NSS 


WWAW 
VMI 


ALNO 
ee eee ed ed BOO ad ad ad td td ot od od 


SEES 


w 


SFFSEE 


Ww 
“ 
LS) 


me ee mee ce mee ee ee ce ce ee ce ce me ce ce ce ce ee ee ee ee ce ed ed ed ed ed eed ee ed 
wy 
as 


GRESLESSLKGEANSSSSVED 


' 2 
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7757 «WORD 65519. 
7737 » WORD 63203. 
7677 -WORD 65471. 
7577 «WORD 92507. 
7377 -WORD 65279. 
7? -WORD 65023. 
777 eWORD 64511. 
777 - WORD rh Ss 
7777 » WORD gis 9. 
7777 «WORD 7343. 
7777 ~WORD 49151. 
7777 - WORD 35567. 
7777 - WORD 767. 
7777 WORD $9151. 
7777 -WORD 57343. 
777 eWORD 61439. 
777 -WORD 63487. 
777 eWORD 64511. 
777 - WORD 02963. 
7377 WORD 65279. 
7577 ~WORD 65407. 
7677 WORD 65471. 
7737 -WORD 65503. 
177757 eWORD 65519. 
7767 -WORD 65527. 
177773 eWORD 65531. 
77775 -WORD 65533. 
177776 eWORD 65534. 
77777 eWORD 65535. 


ENRGDT: 
~EVEN 


G 5 | 
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ERROR MESSAGE TABL 


; ~SBTTL ERROR MESSAGE TABLE 
064376 077527 0724 690000 EMT]: .WORD €&MS300,EMS1 
4 064404 144 9) $5256 615 EMT2: .WORD &EMS301 ENS? -EMS303,EMS1 ,EMS304 
5 06441 10036 sores rae “WORD  EMS511,EMS500,EMS501 ,EMS502,EMS503,0 
§ 064432 077545 077635 07 370 EMT3: .WORD EMS301,EMS306,EMS302 
06444 10383 106 oe Moen «WORD EMS511,EMS505,EMS501,EMS502,0 
8 064452 077527 077570 077651 EMT4: .WORD EMS3500.EMS $ EMSs TESS 
9 0644 100372 10ers 102115 -WORD EMS ats -EMS501 ,EMS503,0 
10 064474 077545 077712 077727 EMTS: .WORD EMS301,EMS310,EMS3 
11 064502 1oeoee 102142 102115 «WORD EMS511,EMS502,EMS501 ,EMS503,EMS504 
\¢ 064514 07 ue - WORD emSeie- 
13 064520 077545 077635 077727 EMT6: .WORD &MS301,EMS306,EMS311 
14 0645 § 10e3h2 102142 102115 «WORD EMS511,EMS502,EMS501 ,EMS503,EMS504 ,0 
15 064542 077545 100031 077570 EMT7:  .WORD €&MS301,EMS313,EMS302 
16 064550 102545 102115 10214 «WORD EMS511,EMS501 .EMS502,EMS504 ,EMS503.0 
17 064564 100137 100160 100062 EMT10: .WORD &MS316,EMS317,EMS314 
18 064572 102545 102115 10214 -WORD EMS511,EMS501.EMS502.0 
19 sees 100137 100160 100111 EMT11: .WORD &MS316,EMS317,EMS31 
20 06461 1Oeo82 102115 102142 - WORD 511,EMS501,EMS502.0 
$) 0 100137 100200 H's 3 EMT12: .WORD &MS316,EMS320,EMS31 
2 6 102545 102115 10214 «WORD EMS511,EMS501,EMS502,0 
25 0646 100137 100000 100117 EMT13: .WORD €E 319-ERS 560 -EMSs) 
24 064644 106339 102115 102142 - WORD 511,EMS501 ,EMS502,0 
25 064654 100137 eae 9 EMT14: .WORD &MS316,EMS321,EMS31 
26 potets 102545 102115 10214 «WORD &MS511,EMS501,EMS502,0 
27 064672 100137 ogee 100117 EMT15: .WORD EMS3 16 EMS ae! oEMS31 
28 064700 102545 102115 10214 «WORD &MS511,EMS501,EMS502,0 
29 064710 100137 100240 100062 EMT16: .WORD &MS316,EMS322,EMS314 
30 064716 102545 102115 10214 -WORD EMS511,EMS5 1 -ENS30¢.0 
31 poere? 100137 100240 100111 EMT17: .WORD &MS316,EMS322,EMS31 
3 0647 102545 102115 10 ie eWORD EMS511,EMS501.EMS502.,0 
33 064744 077545 S44 077015 EMT20: .WORD &MS301,EMS324,EMS25 
$ 064752 Moses 106 37 -WORD EMS5S11, mee 
5 064756 077773 100330 000000 -WORD EMS312,EMS526,0 
3 064764 077545 10060 077015 EMT21: .WORD EMS301,EMS3¢3,EMS250 
7 064772 IOcas2 1022 -WORD €MS511,EMS504 
38 064776 077773 100317 000008 - WORD a + . 
39 065004 077545 10003 077015 EMT22: .WORD &MS301,EMS313,EMS250 
40 065012 tet) 102237 300008 -WORD EMS511,EMS504, 
41 065020 077545 100277 077055 EMT23: .WORD &MS301,EMS324,EMS251 
$$ be20e6 1oeske 102115 -WORD EMS511, 1 
43 065032 0 1003 000008 -WORD EMS312, §-0 
44 065040 077545 100260 077055 EMT24: .WORD &MS301,EMS325,EMS251 
45 sttir3 102545 10211 ~WORD EMS511, 1 
m4] 065052 077773 10031 000000 WORD EMS 1e -ERS 23.0 
47 065060 077545 100031 053 EMT25: .WORD &MS301,EMS31 ognsest 
48 263086 100382 9 115 -WORD EMS511, 1. 
49 065074 077545 077635 117 EMT26: .WORD EMS301,EMS306,EMS252,EMS253,EMS327,EMS254 
50 065110 102545 102212 102115 -WORD EMS i oEMS50 *_5 01,EMS502 
57 0651 1258 10006 WORD EMS Bo eenesa3° 
26 0651 077527 07711 EMT27: .WORD &MS300,EMS252 
53 0651 106338 Metts 000000 eWORD &MS511,EMS501,0 
54 06317 077527 077117 EMT30: .WORD €E 00 -EMSe 2 
55 065144 1 $259 h0et19 102237 -WORD EMS511,EMS501 ,EMS504 ,0 
26 065154 077527 077117 EMT31: .WORD EMS 200 Ete 2 
57 065160 102545 102115 102212 eWORD EMS511,EMS501,EMS503,0 
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ERROR MESSAGE TABLE 
5170 077545 100277 077117 EMT32: .WORD &MS301,EMS324,EMS252 
35 rated 0654 1 it “WORD €MS511,EMS 10 
60 065 077545 1 ¢7 117 EMT33: <WORD &MS301,EMS 4 ENS252 
61 261 10254 1 3 102237 "WORD €MS511.EMS501,EMS 94.0 
62 077545 1 27 077117 EMT34: WORD EMS30 °EMS 4 ENS23¢ 
63 065 10254 102115 loeeie “WORD EMS511.EMS J -EMS50 0 
64 065 40 077545 1 260 117 EMT35: WORD EMS301 ERS *EMS252 
65 065246 102545 10211 “WORD EMS 11 -EMS3O}. 
66 065254 077545 100031 117 EMT36: .WORD €MS301,EMS313,EMS252 
67 065 102545 102115 909900 "WORD €MS511.EMS501,0 
68 065 9 4 100877 77246 EMT37: .WORD &MS301,EMS324,EMS255 
$9 069 7 07777 100 30 900000 “WORD EMS312.EM 6. 
& 077545 1 60 46 EMT4O: ‘WORD €MS301,EMS323,EMS255 
71 065312 192545 102 "wORD €MS511.EMS 
2 065 16 077773 100317 "WORD EMS312.EMS325,0 
065324 077545 100031 077246 EMT41: WORD &MS301,EMS313,EMS255 
74 065332 102545 102237 900000 WORD EMS511 .EMS504 .0 
75 065340 077545 100260 077015 EMT42: .WORD &MS301.EMS323,EMS250,EMS327.EMS255 
76 065352 102545 10 é 102115 "WORD €MS511.EMS504.EMS501,EMS503,0 
77 065364 077527 07 36 EMT43: .WORD €&MS300,EM 
78 065370 102545 10211 900000 "WORD €MS511.EMS501,0 
79 065376 100365 072623 077152 EMT44: .WORD €&MS331,EMS4 EMS253 
80 065404 102545 102115 "WORD €MS511.EMS501,0 
1 065412 077527 07 138 EMT45: WORD EMS 500. ENS2 3 
065416 102545 10211 102212 “WORD €MS511,EMS501,EMS503,0 
065426 077527 07 138 EMT46: .WORD € *EMS253 
84 0654 102545 102115 102237 [WORD £MS511,EMS501.EMS504 0 
BS 065442 077545 100277 077152 EMT47: .WORD &MS301,EMS324,EMS253 
86 065450 10 545 102115 10221 “WORD EMS311 -ENS301 .EMS 03 
87 065456 077773 100330 WORD ENS312,ENS 6, 
88 065464 077545 100277 077132 EMTSO: WORD &MS301,EMS324,EMS253 
BS S805 dterra 195183 OBtonn | uous EneatECene Onn 
91 065506 07754 100260 077152 EMTS1: <WORD € 300 EnS3 *EMS253 
92 065514 102545 10211 "WORD €MS511.EMS50 
93 065520 077773 100317 000000 WORD EMS312 ERS 25,0 
94 065526 077545 100031 077152 EMT52: WORD €MS301.EMS315,EMS253 
95 065534 102545 102115 "WORD €MS511.EMS501,0 
96 069542 100365 072623 077310 EMTS3: .WORD 331 ,EMS4 EAS256 
97 06555 102548 192115 900000 “WORD 311 ,68S50 0 
98 065556 077545 100277 077310 EMT54: .WORD &MS301,EMS324,EMS256 
99 065554 10254 102115 "WORD EMS511.EMS501 
100 065570 07 100330 “WORD EMS 12 ERS 6.0 
1 Sears tees igeee CPPS ess: cap Se ee 
106 065610 077773 100317 “WORD EMS 1e-ERS 3.0 
195 Beast Setese 488Fi3 Goooon SMSS: eas esl anssoi ot 
106 peeees O9534 196418 EMTS7: : WORD ENS 237-83 . 
107 065636 10254 102548 102115 "WORD €MS511,EMS506,EMS501,0 
108 065646 072654 10043 EMT60: .WORD EMSS EAS 
109 065652 102545 102402 102115 “WORD ©MS511,€MS507,EMS501,0 
110 065 077545 100277 077374 EMT61: :WORD €&MS301.EMS324,EMS260 
111 065670 102545 102115 "WORD €MS511.EMS501 
I1¢ 065674 077773 10033 900000 "WORD £MS312.EMS $.0 
11 06570 077545 100260 077374 EMT62: WORD &MS301.EMS323.EMS260 
114 065710 102545 10211 "WORD €MS511.EMS501 
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stage es Wop Ens 304 -£Ms913-EMs260 

116 Ossres 7rsee 100081 Qr7re ENTES: “WORD Ens511 “ERSS01. 

"7 0687 10254 ve ENT64: WORD Ens311 Ens Ae ws 

119 besee h0¢232 198487 S00ss%. ENT6S: re emeat ERS 01.0 “2 

159 068786 102565 J0etts a EMS 12, ENS356, Ems 

132 O68 078175 ce Os 22 ald Ene 300 Eng - 

: 5772 102545 1 EMT67: .WORD 11° EMS$01 

135 BEERS UEREE. estes “WORD EMSZAERSSSS.00 

15 966010 073770 10045 70: :WORD _EMS360,ENS6,EMS327, EMS 

159 Degole. OFP5e7 905115 102937 SWORD EMSG.EASSS5  EASSA0 EAS10 EMS333,ENS342 
ae Gee UE re Beane oc on 

02 : [WORD 0 

120 OED 8g NOE eee ects CESS emt7a; ° D _EMS511.ENS501.EMS 2. ‘9 

131 Orscee 1O5an8 40 142 - WORD EMS 301 -EMS260.ENS303.EMS 

13 Foote i Oeee O0Stte O7s61s EMT73: WOR EMS511,EMS501 .EMS502,0 

138 966108 077545 102115 102142 "YORD  EMS343-ERS344,EMS342.0 

134 066116 102545 100623 100555 EMT74: - WORD EMS300,EMS13 

138 beclse O77Ser 073583 EMT73: ORD EMSS11,EMS503,0 

136 066136 0773e7 07325 eORD eee EnS1S ENS365 

138 OGe130 100700 73258 l00Gs2 EMT76: WORD EMS511,EMS505,0 

138 066150 1007 000000 - WORD 37,EMS13,EMS345 

AE TRE) OE GR own SAU EER Paaseos4on5 

Mee Oe toes tees oo eo0s EMTI00: “CORD Hat EES 

142 066200 077945 100031077203 “WORD EMS34G<ERS1¢ ENS347,EMS1S 

23 O66e 16 102545 Meets 199348 EMT101: rend EMS511_EMS503, EMS50 eo 15 

144 066220 1007 10211 , wor 7°EMS14 EMS 341 ,EMS 

is Sees HBL eens iets rte: ie SS oe 

147 066250 102545 1 31 077205 EMT103: .WORD mS511EMSS03. 

Ae bce5e 977845 1092i¢ "WORD EMS14,ERSS32-0 341,EMS16 

15 096976 ei O75326 100346 EMT104: ae EnssitEne308. ones yo 

131 066306 1 102212 10211 “WORD EMS537,EMS17,ENS361 

13 Oeeses 100821 073526 100546 ENTIOS: "GORD EMS311/ENS50$,EMSSO1 0 a 

153 066324 10052 102212 102115 WOR EMS301,EMS315,EMS254,EMS347, 

154 066334 102545 079208 EMT106: “WORD 11,ERS503 

132 pense ate I0eetg “WORD ENST/ ERS839.0 341, EMS21 

139 geesee 075536 10641 700948 ENT107: “WORD  EMS345,ERS $°EMs50 

138 966370 109545 102812 109118 em Ens 20, fRs331 ERS21 , EAS350,EMS22,EMS315 
120 066410 078567 100744 075653 EMTIT0: “WOR EMS511,EMS501 EMS333 

160 066410 073567 100744 “WORD EMS20, ERS334,EMS350,EMS22, 

161 066424 102545 47 100000 EMT111: .WORD ats eee 01.0 

188 sett ors 102115 000000 1112: “WORD ERSS37<ERS20,ENS341 EMS2 7 
164 066452 100821 Woaate 0stis ns “WORD EMS337,ENS20, M5341 ,EMS21 ,ENS350, EMS22,EMS3 
165 dosage 100831 a7S569 100546 EMTI13: WORD EnsSt1 En 52, £MS21 ,EMS350,EMS22.EMS333 
16? 066510 a 100768 73638 EMTI16: WORD EMS514..ERS904 0 254. EMS347.EMS21 

169 o6esso 102845 10211 0900 5: {WORD  EMS301-EMS313.ENS254, 

199 o66s40 077548 100031 077205 EMTI15: “WORD  EMS511,EMS503 

1 Meo Mboees | 1o2e72 

171 066552 102 
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—EMT120: 


EMT121: 
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EMT126: 
EMT127: 
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EMT146: 
EMT147: . 
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EMS20,EMS3 3-0 

EMS g.ERS EMS341,EMS24 
EMS511,EM 08 EMS 1,0 
EMS337,EMS23,EMS341,EMS24 
EMS511,EMS50 -EM-904 «0 

EMS 301 .EMS31 *EMS254.EMS347,EMS246 


11, 
EMS23,€MS332,0 
EmeSe ee ae3s EMS341,EMS26 
EMS511.EMS503,EMS501,0 
EMS337 EMS25,EMS341,EMS26 
EMS511.EMS505,EMS501, “ 
EMS301 .EMS313,EMS254,EMS347,EMS26 
EMS511,EMS503 
ENS25 éms 32.0 
EMS 06. Ese EMS307,EMS2 
EMS511.EMS503,0 
EMS331 .EMS27,EMS353 
EMS511.EMS505 

mss €ms315,0 
EMS337,EMS27,EMS341,EMS30 
EMS511. 0 
EMS301 .EMS313,EMS254,EMS347,EMS30 
EMS511.EMS503 


E E 

EMS S 

eEMS31{ -ENS504 EMS503,0 
MS355.EMS33,£MS250,EMS341,EMS30 
EMS511.EMS504,0 

EMS355 EMS 34 ,EMS250,EMS341,EMS30 
EMS511.EMS504,0 

EMS331 .EMS4 ,EMS255 

EMS511 ERS504 0 

EMS35 ,€MS357,€MS360,EMS15 
EMS511,£MS501,0 

EMS261,EMS36 
EMS511.EMS503,0 
EMS300,EMS36,EMS307,EMS2 
EMS511.EMS501, 
EMS355.EMS37,€MS255,E£MS341,EMS30 
EMS511.EMS504,0 
EMS346,EMS40,EMS345 
EMS511,EMS504,0 
EMS337.EMS40,£MS341,EMS30 
EMS511,EMS504,0 
£MS363,EMS310,EMS41 

EMSS 


11 ERS 01 
EMS337,EMS41,EMS341,EMS252,EMS327 .EMS253 


EMS511.EMS501,0 


EMS41 gasses EMS364.EMS252,EMS365,EMS253 


EMS511,EMS501,0 
EMS 01 ,ENS306,EMS36 
EMS511.EMS501 .EMS503.0 
EMS366,EMS4 
EMS511.EMS503,0 


mo 
am 
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ERROR MESSAGE TABLE 
067374 101324 100776 101274 EMT150: .wORD &MS367,EMS353,EMS365,EMS42,EMS354,EMS3 
§ 7410 106545 19954 §30806 “WORD £MS511.EMS 03/6 
1 067416 100521 07464 EMT151: .WORD &MS337,EMS 
3 0674 102545 02115 900000 "WORD EMS511 ERSS 1,0 
067430 07 136 1o10¢8 074647 EMT152: .WORD EMS43,EMS354,EMS36 
067436 10254 1081) 00 "WORD £MS511,EMS501,0 
5 067444 101324 1 £76 909 4 €MT153: .WORD EMS 36/7 EMS593,EMS365 .EMS36..EMS370 
36 067456 102545 102¢1 000000 "WORD €MS511.EMS503, 
37 067464 101324 100776 101274 EMT154: .WORD &MS367.EMS353,EMS365,EMS36,EMS371 
238 067476 102545 10221 900000 “WORD &MS511.EMS503,0 
539 067506 077527 075207 077651 EMT155: .WORD &MS300,EMS44,EMS307,EMS2 
240 067514 102545 lozele “WORD EMS311,ENS303.0 
541 067522 101324 100776 101274 EMT156: .WORD &MS367,EMS353,EMS365,EMS44 ,EMS354,EMS3 
242 067536 102548 102212 000000 "WORD €MS511.EMS503,0 
543 067544 077527 075250 077651 EMT157: .WORD ~EMS300,EMS45,EMS307,EMS2 
244 067554 102545 102212 000000 “WORD EMS511, ¥ 
545 067562 101324 100776 101274 EMT160: .WORD £MS367,EMS353,EMS365.EMS45,EMS354,EMS3 
346 067576 102545 102212 102115 "WORD EMS511,EMS503 
247 067604 074605 100433 000000 "WORD EMS35,£MS333,0 
248 067612 077527 075325 077651 EMT161: .WORD &MS300,EMS46,EMS307,EMS2 
249 067622 102545 102212 000000 "WORD £MS511.EMS503,0 
550 067630 100521 075325 100776 EMT162: .WORD &MS337.EMS46,EMS353 
251 067636 102545 102212 102115 "WORD €MS511 ERS505 EMS501,0 
552 067646 074605 100457 100521 EMT163: .WORD &MS35,EMS335,EMS337,EMS41,EMS334,EMS372 
253 067662 102545 102115 000000 "WORD €MS511,EMS501,0 
55% 067670 075407 100457 100521 EMT164: .WORD &MS47,€MS335,EMS337,EMS41,EMS335,EMS372 
255 067704 102545 102115 000000 "WORD €MS511,EMS501,0 
556 067712 100521 074605 100340 EMT165: .WORD &MS337.EMS35,EMS327,EMS47 
257 067722 102545 102115 "WORD €MS511 ERS 
258 067726 075006 100433 101440 "WORD &MS41,EMS333,EMS372,0 
559 067736 077527 075407 077651 EMT166: .WORD &MS300,EMS47,EMS307,EMS2 
260 067746 102545 102115 102212 "WORD €MS511.EMS5O1 EMS 
561 067756 075447 100457 100535 EMT167: .WORD &MS50,EMS335,EMS340,EMS36,EMS333 
262 067770 102545 102115 102212 "WORD EMS511,EMS501,EMS503,0 
263 070000 100521 074605 EMT170: WORD &MS337.EMS395 
264 070004 102545 102115 000000 "WORD EMS511.EMS501,0 
565 070012 075447 074556 072556 EMT171: .WORD &MS50,EMS34,EMS 
266 070020 102545 102115 000000 "WORD €MS511,EMS501,0 
267 070026 077545 077635 073316 EMT172: WORD €MS301,EMS306,EMS51 
268 070034 102545 102115 10223 SWORD EMS511,EMS501.EMS504,0 
569 070044 101324 100776 101274 EMT173: .WORD &MS367,EMS353.EMS365,EMS47,EMS354,EMS3 
270 070060 102545 102115 000000 “WORD €MS511.EMS501. 
571 070066 077527 077015 100340 EMT174: .WORD &MS300.EMS250,EMS327,EMS255,EMS327 ,EMS256 
37 070102 100546 102644 “WORD EMS341.EMS600 
273 070106 10254 102115 102237 “WORD EMS311 ,ENS301 .EMS504.0 
274 070116 077527 077310 100546 EMT175: .WORD &MS300.EMS256.EMS341,EMS600 
275 070126 102545 102115 10223 “WORD £MS511,EMS501,EMS504,0 
376 670136 077527 077015 100546 EMT176: .WORD EMS300,ENS250.EMS341 .EMS600 
277 070146 102545 102237 000000 "WORD €MS511.EMS504, 
378 070154 000000 EMT177: .WORD 
070156 100521 075565 100546 EMT200: .WORD &MS337,EMS52,EMS341,EMS601 
070166 102545 102115 000000 "WORD €MS511.EMS501,0 
281 070174 100700 075565 100546 EMT201: .WORD &MS346,EMS52,EMS341,EMS602 
070204 10254 102115 000000 "WORD £MS511.EMS501,0 
28 070212 100700 07 316 100546 EMT202: .WORD £MS346.EMS51,EMS341,EMS602 
284 07022 10254 10211 900000 “WORD EMS311 .ENS5Of 0 
585 070230 100700 075565 100652 EMT203: .WORD &MS346,EMS52,EMS345,EMS373,EMS255 


rv } 
™=s* « 
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wt 
& 
w 


WOR MS511,EMS504,£MS501 
co. 4 ms2o eb 41 éns27 


286 07024 102 102237 102115 : 
& 070252 1 700 07 65 100546 EMT204: .WORD &MS346, 
88 070262 10254 1008 021 “WORD €MS51 ENS504 EMS501,0 
289 070272 07 26 101022 07 356 EMT205: .WORD €MS53,EMS354,EMS 
070 10254 10201 10214 "WORD €MS511,EMS503,EMS502,EMS510,0 Al 
331 070312 100521 07 66 101476 EMT206: .WORD &MS337.EMS54,EMS374,EMS250,EMS327,EMS255 Al 
; 070326 100340 0725 $ “WORD EMS Al 
293 07033 10254 102237 102115 "WORD €MS511 ENS304 EMS501.0 Al 
294 070342 075667 1010¢2 072556 EMT207: .WORD EMS54,£MS354,EMS Al 
295 070350 102565 10211 990900 “WORD EMS511 ENS501 0 Al 
296 070356 075667 1o10¢e 101253 EMT210: .WORD EMS54,EMS354,EMS364,EMS250 Al 
$97 070 102543 1022 900000 "WORD EMS511,EMS Al 
070374 075667 101022 101253 EMT211: .WORD EMS54,EMS354,EMS364,EMS255 A 
299 070404 102545 102237 000000 "WORD €MS511,EMS504,0 Al 
300 070412 100521 075744 EMT212: .WORD &MS337,EMS55 Al 
301 070416 102545 102237 000000 "WORD €MS511.EMS504,0 Al 
302 070424 076022 100447 100652 EMT213: .WORD &MS56,EMS334,EMS345,EMS373,EMS262,EMS327,EMS251 Al 
3 070442 102545 102115 "WORD €MS511,EMS501 A 
070446 076022 100457 000000 "WORD £MS56,EMS335,0 A 
305 070454 100521 976028 EMT214: .WORD &MS337,EMS56 A 
070460 102545 102115 000000 "WORD EMS511,EMS501,0 A 
307 070466 076115 100433 100737 EMT215: .WORD &MS57,EMS333,EMS350,EMS60,EMS334 A 
308 070500 102545 102115 000000 "WORD €MS511,EMS501,0 A 
070506 101236 077635 072654 EMT216: .WORD &MS363,EMS306,EMS5 A 
310 070514 102545 102115 000000 "WORD €MS511.EMS501,0 A 
311 070522 101236 077635 076253 EMT217: .WORD &MS363,EMS306,EMS61 A 
312 070530 102545 102115 000000 “WORD €MS511.EMS501,0 A 
313 070536 076326 1004633 101527 EMT220: .WORD &MS62,£MS333,EMS375,EMS251 A 
314 070546 102545 102115 000000 “WORD E $511 -ENS501 0 A 
315 070554 076326 100433 101543 EMT221: .WORD EMS62,EMS333,EMS376,EMS262 A 
316 070564 102545 102115 000000 “WORD EMS511,EMS501, A 
317 070572 076326 100433 101543 EMT222: .WORD EMS62,EMS335,EMS376,EMS250 A 
318 070602 102545 102115 000000 “WORD €MS511,EMS501,0 A 
319 070610 100700 076326 100546 EMT223: .WORD &MS346,EMS62,EMS341,EMS603 A 
320 070620 102545 102115 000000 "WORD £MS511.EMS501,0 A 
321 070626 100700 076407 101543 EMT224: :WORD &MS346,EMS63,EMS376,EMS262 A 
22 070636 102545 102115 102212 “WORD EMS511 ERS301 LEMS50 .0 A 
323 070646 076407 100-33 100737 EMT225: .WORD &MS63,EMS333,EMS350,EMS363,EMS310,EMS262 A 
334 070662 102545 102115 000000 ; WORD 511 EMS A 
335 070670 076407 101117 074647 EMT226: .WORD EMNS6S £S357,€MS36,EMS372 A 
326 070700 102545 102115 000000 "WORD €MS511,EMS501, A 
337 070706 076407 101077 101141 EMT227: .WORD EMSGS £™S356,£MS360,EMS15 A 
328 070716 102545 102115 000000 "WORD €MS511,EMS501,0 A 
339 070724 076407 101077 101167 EMT230: .WORD EMS6S £MS356,EMS361,EMS15 A 
070734 102545 102115 000000 "WORD EMS511,EMS501,0 A 
331 070742 076607 101077 075006 EMT231: .WORD &MS63,EMS356,EMS41 a 
332 070750 102545 102115 000000 “WORD EMS511 ENS50i 0 A 
333 070756 075006 101557 100555 EMT232: .WORD &MS41,EMS377,EMS342,EMS365,EMS63,EMS332 A 
34 070772 102545 102115 000000 —TwORD = EMS511,EMS501.0 A 
35 071000 101324 100776 101274 EMT233: .WORD &MS367.EMS353,EMS365,EMS63,EMS401 A 
336 071012 102545 102212 102115 "WORD EMS511.EMS503,EMS501 A 
37 071022 073445 10155 101640 EMT234: :WORD &MS16,£MS377,-EMS372,EMS365,EMS64,EMS354,EMS3 A 
38 071040 102548 10221 10211 "WORD €MS511,EMS503 EMSS 1,0 - A 
339 071050 077527 076517 077651 EMT235: .WORD EMS300,EMS65,EMS307,EMS2 A 
340 071060 102545 10216¢ locale "WORD . EMS511 ENS50¢ EMS50 4 
1 971070 976022 101557 101543 EMT236: .WORD EMS96. EMS 77,€MS376,€MS252,EMS372,EMS350 A 
342 071104 076517 101605 “WORD €MS65.EMS401 A 








Ld ~ 
CZRNBAO RM8O_DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 36-6 SEQ 0270 


ERROR MESSAGE TABLE 

3.071110 102545 102142 102212 .WORD €MS511,€MS502,EMS503,EMS501,0 

4 ori 0 $333 07656 49¢2l¢ EMT237: .WORD EMS 300, ENS66 efese$ éms2 

§ 0711 109545 102115 10221 "WORD £MS511.EMS501,EMS503,0 

071142 073367 101570 101440 EMT240: :WORD EMS15,£MS400,EMS372,EMS350,EMS66,EMS401 
071156 102545 10221 10211 "WORD €MS514 ERS303 EMSS j 

348 071166 076560 100502 100535 €EMT241: .WORD EMSG6 £MS336,EMS340,EMS15,EMS406,EMS405,EMS604 

9 071204 10254 10221 000000 "WORD €MS511,EMS503,0 
350 071212 101631 108 76 101622 EMT242: .WORD EMS403,EMS604,EMS402,EMS21,EMS377 
351 071224 102545 10221 "WORD EMS511,EMS503 
33¢ 071230 074647 10045 900000 "WORD EMS36,EMS335,0 
353 071236 976960 109508 100535 EMT2463: .WORD &MS66,EMS336,€MS340,EMS26,EMS404,EMS405,EMS604 
354 071254 102545 102212 000000 "WORD €MS511,EMS503 
355 071262 076407 101605 101711 EMT244: .WORD E&MS63,EMS401,EMS405,EMS604 
356 071272 102545 102212 000000 "WORD €MS514 ERS505,0 
357 071800 074647 101374 101711 EMT245: .WORD &MS36,EMS370,EMS405,EMS604 
358 071310 102545 102212 000000 “WORD €MS511,EMS503,0 
359 071316 101631 102776 101622 EMT246: .WORD &MS403.EMS604.EMS402,EMS24,EMS377 
360 071330 102545 102212 "WORD EMS511,EMS503 
361 071334 074647 100457 000000 "WORD EMS36,E€MS335,0 
362 071342 076635 100415 101711 EMT247: .WORD EMS67,EMS332,EMS405,EMS604 
363 071352 102545 102212 000000 "WORD €MS511,EMS503 
364 071360 076560 100502 100535 EMT250: .WORD EMS66,EMS336,EMS340,EMS15,EMS406,EMS405,EMS605 
365 071376 102545 102212 000000 "WORD €MS511,EMS503,0 
366 071404 101631 103023 101622 EMT251: .WORD &MS403.EMS605,EMS402.EMS21,EMS377 
367 071416 102545 102212 "WORD €MS511.EMS503 
368 071422 074647 100457 000000 "WORD £MS36,£MS335,0 
369 071430 076560 100502 100535 EMT252: .WORD EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS605 
370 071446 102545 102212 000000 “WORD €MS511,EMS503,0 
371 071454 076407 101605 101711 EMT253: .WORD &MS63,EMS401,EMS405,EMS605 
372 071464 102545 102212 000000 ~" "YORD €MS511,EMS503,0 
373 071472 074647 191374 101711 EMT254: .WORD &MS36,EMS370,EMS405,EMS605 
374 071502 102545 102212 000000 “WORD EMS511,EMS503, 
375 071510 101631 103023 101622 EMT255: .WORD &MS403,EMS605,EMS402,EMS24.EMS377 
376 071522 102545 102212 “WORD €MS511.EMS503 
277 971526 074647 100457 000000 “WORD EMS36. ENS339.0 
378 071534 076635 100415 101711 EMT256: .WORD &MS67.EMS332.EMS405,EMS605 | 
379 071544 102545 102212 00000 " "WORD €MS511,EMS503,0 
380 071552 076560 100502 100535 EMT257: .WORD &MS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS606 
381 071570 102545 102212 000000 “WORD  EMS511,EMS505,0 
382 071576 101631 103041 101622 EMT260: .WORD &MS403,EMS606,EMS402,EMS21,EMS377 
383 071610 102545 102212 "WORD €MS511.EMS50 
384 071614 074647 100457 000000 "WORD £MS36,EMS335,0 
385 071622 076360 100502 100535 EMT261: .WORD &MS66,EMS336.EMS340,EMS26,EMS404,.EMS405,.EMS606 
386 071640 10254 locate 000000 "WORD EMS511,EMS503,0 
387 071646 076407 101605 101711 EMT262: .WORD &MS63,E£MS401,€MS405,EMS606 
388 071656 102545 locate 000000 “WORD EMS514 ENS503 0 E 
389 071664 074647 101374 101711 EMT263: .WORD &MS36,EMS370,EMS405,EMS606 E 
390 071674 102545 102212 000000 "WORD €MS511,EMS503, E 
391 071702 101631 103041 101622 EMT264: .WORD EMS405,ENS606,EMS402 .EMS24 .EMS377 E 
338 071714 102545 107016 WORD &MS511,EMSSO E 
93 071720 074647 100457 000000 “WORD &MS36,£MS335,0 E 
394 071726 076747 101605 101711 EMT265: .WORD &MS70,EMS401,EMS405,EMS606 E 
95 071736 102545 102212 990 00 “WORD EMS511, "MS E 
396 071744 076635 100415 101711 EMT266: .WORD &MS67,EMS332,EMS405,EMS606 E 
397 071754 102545 102212 000000 "WORD £MS511,EMS503,0 E 
398 071762 076560 101077 101734 EMT267: .WORD &MS66,EMS356,EMS407 E 
399 071770 102545 102212 000000 "WORD €MS511,EMS503,0 E 
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400 071776 97 560 1 502 100535 EMT270: .WORD EMS6S EMS336,EMS340,EMS15,EMS406,EMS495 ,EMS607 
401 7201 545 10221 00 000 “WORD EMS fens 3.0 

4 2 07 0 101631 103061 101622 EMT271: .WORD EMS40 *—EMS607,EMS402,EMS21,EMS377 
403 07 1 é 45 10221 “WORD £MS511.EMS503 

404 072040 07 51 10050 900000 ) “WORD EMS27,€MS336,0 

405 07 6 074251 101 101711 EMT272: .WORD &MS27.EMS370,EMS405,EMS607 

406 072056 102 45 102 12 000000 “WORD EMS511 ENS3 $.¢ 

407 072 07425] 10141 101711 ENT273: WORD ENS2/ «ENS371 ,ENS405.EMS6O7 

408 072074 102545 102212 000000 "WORD EMS511,EMS5 

409 07210 074647 101672 101711 EMT274: .WORD EMS36,£MS404,£MS405,EMS607 

410 072112 102545 102212 000000 "WORD £MS511,€MS503,0 

411 0721 0 973626 101605 101711 EMT275: .WORD &MS53 Ens401 £ms405,EMS607 

41g 072130 10254 102212 102142 “WORD 511, €MS503,EMS502,0 

413 072140 076658 100415 101711 EMT276: .WORD EMS67,EMS 22 £mS405,EMS607 

414 072150 102545 102212 000000 "WORD £MS511,EMS503,0 

415 072156 976960 10050 100535 EMT277: .WORD &MS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS607 
416 072174 102545 102212 000000 "WORD €MS511,EMS503, 

417 072202 101631 103061 101622 EMT300: .WORD EMS403,EMS607,EMS402,EMS24,EMS377 
418 072214 102545 102212 "WORD £MS511.EMS503 

419 072220 074251 100502 000000 WORD EMS2? .EMS 36,0 

420 072226 076747 101605 101711 EMT301: .WORD EMS70,EMS401,EMS405,EMS607 

421 072236 102545 loeei2 000000 "WORD €MS511,EMS503,0. 

452 072244 077527 077246 100546 EMT302: .WORD &MS300,EMS255,—MS341,EMS600 

423 072254 102545 102237 000000 "WORD £MS511.EMS504,0 
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3 
> 
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ee ee en) 


NNN IIR NNN 


NED" (RMCS2 BI 


RRS 


@UNUSED BIT POSITION 

@DEVICE AVAILABLE (DVA™ (RMCS1, BIT 11) a 
AR OR ‘PAR" (RMER1, BIT 03) @ 

RROR ‘DPE’ (RMER2, BIT 03) @ 


BIT a 
BUS PARITY ERROR 'MCPE"' @ 


eseoses 
ron 
VO 


=SASRSE 


@MASSBUS 
Scancs], 6 
@ILLEGAL 
@DIAGNOSTIC 


SOTSUNPNYYsS ss 


qocace 
a 
—b 
SVN 3309 
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~“ 


17 1 

RMMR1, BIT 09) @ 

** (RMARI, BIT 03) @ 
QWRITE LOCK 11) @ 

@DEVICE CHECK 'DVC"' (RMER2, BIT 07) @ 
@MAINTENANCE DRIVE FAULT ‘MDF‘’ (RMMR1, BIT 06) @ 
@UNSAFE STATUS "UNS'' (RMER1, BIT 14) @ 

@SEEK INCOMPLETE STATUS ‘‘SKI'' (RMER2, BIT 14) @ 
@MAINTENANCE SEEK E "MSER’’ (RMMAT, BIT 07) a 


eeu 
Nm WONAULSWN “OVDONOUSWN— 


»>>>> > \> > 
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ND BI 
@DIAGNOSTIC END Ck “DEBL’’ (RMMR1, BIT 13) @ 
@LAST SECTOR STATUS "LS'’ (RMMA1, BIT 02) @ 

gh “LST’’ (RMAR1, BIT 01) @ 


aSECT 

@TRACK ADDRESS BITS OF @ 

@VOLUME VALID ‘‘VV'* (RMDS, BIT 06) @ 

aGO BIT (RMCS1, BIT 00) 

@CYLINDER ADDRESS BIT OF @ 

@LAST BLOCK TRANSFERRED, “‘LBT"’ (RMDS, BIT 10) @ 

@COMPOSITE ERROR 'ERR' (RMDS, BIT 

@COMMAND SEQUENCER TEST BIT “TST’* (RMMR2, BIT 12) @ 

@DRIVE READY STATUS "DRY'' (RMDS, BIT 07) @ 

@CONTINUE "'CONT’’ (RMMRI, BIT 065 

@INVALID COMMAND ERROR “IVC’* (RMER2, BIT 12) @ 

@LOSS OF SYSTEM CLOCK ERROR “LSC (RMER2, BIT 11) @ 

@OCCUPIED "‘OCC’’ (RMAR1,, 

@ILLEGAL FUNCTION "ILF” (RMER1, BIT 0) @ 

@OFFSET DIRECTION ‘‘OFD'* (RMOF, BIT 07) @ 

@OFFSET MODE "OM" (RMDS, BIT 60) 

@RUN AND GO “'RG'’ (RMMR1, BIT 14) @ 

@INVALID ADDRESS ERROR “IAE’’ (RMER1, BIT 10) @ 

@ADDRESS OVERFLOW ERROR "‘AOE'’ (RMER1, BIT 09) @ 

QREGISTER MODIFICATION REFUSED ERROR @ 

@DRIVE REQUEST REQUIRED STATUS ‘DRO’ (RMDT, BIT 11) @ 

@PROGRAMMABLE STATUS "PGM'’ (RMDS 09) @ 

@DRIVE PRESENT STATUS “DPR'’ (RMDS, BIT 08) @ 
I ROA,ROB 1 SRO? BITS 15,14) @ 

@WRITE LOCK ER “ (RMER1, BIT 11) @ 

@EXCEPTION REX’ (RMMR1, BIT 12) @ 


O90] NW “ON 


o-COONNnN— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


36 075006 
37 075054 
38 075136 
39 075207 


202 2 =f) 20 | W000] | 0 00] SCONOSoSo——=NO0O00S0 v= 


SMS NVNININUEO BANANDI NIN 2 IND 8D NI 10 2 BI BNOOISIN 
902090) 2 2 SN F “CONMN0O— "ON Ne  — 


ek ed dd td td ed td 
ere ee Se 
= = NN A NS WE 


No 


R 


ee me eee mek eh ee eh eek ee ee ee ee ee ee ee ee ee ee ee a ee ed ee ee ee ed ed ed a ad me ed ed ed ed ed ed 
26h shshseh.n 4046024602464 14462 68 64 126A 64 AR 


me ee ee ee me me ee me ee ee me ee ee ee em ee ee ee ee ea ee ee a ee ed ed ed ed ed ed ed ed ed 


PS Pere b 2 
nnn 
PAOAQAQAQAAIAOAOOAAAAAOAAYO 
Dee Bg Cee eng tenes Femme frag frneg Bomaet rng fmt, Bong bmg Bens Comet ang fg bang bed bang Bang mg fe De 
OT et Lat a ae Le Le ee Li Li LL LL he Le Le LL 


at et et ead ed 
SNLSRSE 


076407 
56 076447 
57 076517 





F 6 
CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 40-1 SEQ 0276 C 
ERROR MESSAGE STRINGS C 
58 0765 111 116 126 mS6G: .ASCIZ @INVALID COMMAND ERROR “‘IVC’’ (RMER2, BIT 12) @ $ 
59 0766 124 101 1 EMS67: .ASCIZ @TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @ $ 
60 076711 114 111 116 ~ASCIZ @LINES (RMMR2, BITS 10,11,13) @ $ 
61 076747 123 105 101 €MS70: ASCIZ @SEARCH ENABLE ESRC’ (RMMR1, BIT 11) @ $ 
8 077015 104 111 123 €MS250: .ASCIZ @DISK ADDRESS REGISTER (RMDA) @ $ 
64 07705 103 117 116 EMS251: .ASCIZ @CONTROL STATUS REGISTER #1 (RMCS1) @ $ 
65 07711 105 132 122 EMS 3¢: .ASCIZ @ERROR REGISTER #1 (RMER1) @ $ 
66 07715 105 12 122 EMS253: .ASCIZ @ERROR REGISTER #2 (RMER2) $ 
67 07720 115 101 111 EMS254: .ASCIZ @MAINTENANCE REGISTER #1 (RMMR1) @ $ 
68 077246 104 105 123 EMS255: .ASCIZ @DESIRED CYLINDER REGISTER (RMDC) @ $ 
69 077310 117 1 106 EMS 28: eASCIZ @OFFSET REGISTER ( $ 
70 077 104 12 111 EMS257: .ASCIZ @DRIVE TYPE REGISTER (RMDT) @ $ 
71 077374 119 11 114 EMS260: .ASCIZ REGISTER $ 
72 077425 12 105 122 EMS261: .ASCIZ @SERIAL NUMBER REGISTER (RMSN) @ $ 
a3 77 101 124 124 EMS262: .ASCIZ @ATTENTION SUMMARY REGISTER (RMAS) @ ; 
75 077527 103 101 116 EMS300: .ASCIZ @CANNCT CLEAR $ 
76 077545 103 101 116 EMS301: .ASCIZ @CANNOT WRITE/READ @ $ 
77 077570 101 116 131 EMS302: .ASCIZ @ANY DEVICE REGISTER @ $ 
78 077615 127 111 124 EMS303: .ASCIZ @WITHOUT @ $ 
79 077626 105 122 122 €MS304: .ASCIZ @ERROR $ 
80 077635 101 040 117 EMS306: .ASCIZ @A ONE FROM @ $ 
81 077651 125 123 111 EMS307 <ASCIZ @USING MASSBUS INITIALIZE, I.E.. @ $ 
82 077712 101 040 132 €MS310: .ASCIZ @A ZERO FROM @ $ 
83 077727 105 126 105 EMS311: .ASCIZ @EVERY DEVICE REGISTER BIT POSITION @ $ 
84 077773 124 110 105 EMS 12 .ASCIZ @THE FOLLOWING BITS ARE STUCK @ $ 
85 100031 101 040 123 EMS313: .ASCIZ @A NG ONE BI 4 
86 1 101 120 120 €MS314: .ASCIZ @APPEARS STUCK AT ZERO @ $ 
87 100111 101 120 120 €EMS315: .ASCIZ ARS STUCK AT | 
88 100137 122 105 107 EMS316: .ASCIZ @REGISTER SELECT @ 
89 100160 061 040 050 EMS317: .ASCIZ a1 (1,2,4.8.,16) 
90 100200 062 040 050 EMS320: .ASCIZ @2 (1,2,4,8,16) @ 
91 100220 064 040 050 €EMS321: .ASCIZ @4 (1,2,4,8,16) @ 
92 100240 070 040 050 EMS3 ¢: eASCIZ @8 (1,2,4,8,16) @ 
93 100260 101 114 114 &MS323: .ASCIZ @ALL ONES FROM @ 
94 100277 101 114 114 EMS324: .ASCIZ @ALL ZEROS FROM @ 
95 100317 101 126 040 €EMS325: .ASCIZ T ZERO @ 
96 100330 101 1246 049 EMS3 6: -ASCIZ @AT ONE @ 
97 100340 054 049 117 EMS327: .ASCIZ a 
98 100346 015 01 103 €&MS330: .ASCIZ <CR><LF>@CS MBA CLRL @ 
99 100365 103 101 116 EMS331: .ASCIZ T READ ZEROS FROM @ 
100 100415 111 123 040 EMS ¢ eASCIZ @IS INCORRECT @ 
101 100433 111 123 040 EMS333: .ASCIZ NOT SET @ 
102 100447 111 123 040 EMS334: .ASCIZ SET a 
103 100457 123 110 117 EMS335: .ASCIZ LD NOT BE SET @ 
104 100502 123 110 117 EMS336: .ASCIZ @SHOULD BE SET @ 
105 1009¢) 103 101 116 EMS337: .ASCIZ ac T SET @ 
106 100535 102 105 103 €MS340: .ASCIZ @BECAUSE @ 
107 100546 12 123 111 EMS341: .ASCIZ @USING @ 
108 10055 104 125 1 g EMS ¢ -ASCIZ @DURING REGISTER TRANSFER @ 
109 100607 125 116 1 EMS343: .ASCIZ @UNEXPECTED @ 
110 100623 10 12 123 EMS344: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 
111 100652 10 131 040 £MS345: .ASCIZ @BY REGISTER TRANSFER @ 
11 100700 10 101 116 EMS 46: eASCIZ @CANNOT RESET @ 
11 100716 127 111 136 EMS347: .ASCIZ @WITHOUT SETTING @ 
114 10073 102 125 124 EMS350: .ASCIZ @BUT @ 
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ERROR MESSAGE STRINGS 
1 103077 195 130 120 EH1: .ASCII @EXPCTD RECEVD REGSTR@<CRLF> 
¢ 10 g 1 124 101 eASCIZ @STATUS STATUS ADRESS@ 
10 040 102 101 EH2: sASCII @ BASE@<CRLF> 
4 10 g 101 19% 1 EH3: eASCIZ @ADRES 
5 10 105 1 9 1 EHS: eASCII @EXPCTD STUCK@<CRLF> 
§ 10 138 19 1 eASCIZ @RESULT BIT(S)@ 
10 1 130 120 €EH7: .ASCIZ @EXPCTD RECEVD@ 
8 10 122 105 103 €HS7: .ASCII @RECEVD DRVTYPa<CRLF> 
10 1 1 2 1 6 .ASCIZ @DRVTYP REGADR@ 
10 10 198 1 1 EH65: . ASCII @EXPCTD RECEVD TEST@<CRLF> $ 
11 103332 123 16 101 eASCIZ @STATUS STATUS REGSTR $ 
4 19 1 198 1 120 EH71:  . ASCII @EXPCTD RECEVD TEST@<CRLF> $ 
13 1 7 12 12 101 .ASCI1Z @STATUS STATUS PATTRNe $ 
14 10 198 130 120 £H115: .ASCII @EXPCTD RECEVD REGSTR _TEST@<CRLF> $ 
15 103474 1 124 101 .ASCIZ @STATUS STATUS ADRESS PATT $ 
16 103533 105 130 120 €H130: .ASCII @EXPCTD RECEVD REGSTR TEST OFFSET@<CRLF> $ 
17 103602 123 10h 191 .ASCIZ @STATUS STATUS ADRESS PATTRN REGSTR@ $ 
18 103651 105 1 9 120 €H132: .ASCII @EXPCTD ACTUAL REGSTR OFFSET@<CRLF> $ 
19 103710 103 11 125 .ASCIZ @COUNT COUNT ADRESS REGSTR@ $ 
103747 105 130 120 €H142: .ASCII @EXPCTD RECEVD REGSTR OFFSET@<CRLF> $ 
1 104006 123 126 101 .ASCIZ @STATUS STATUS ADRESS REGST $ 
104045 105 130 120 €H145: .ASCII ACTUAL REGSTR RMER1 RMER2@<CRLF> $ 
33 104113 103 115 120 .ASCIZ @CMPERR CMPERR ADRESS PATTRN PATTRN@ : 
25 104162 105 130 120 €H150: .ASCII @EXPCTD ACTUAL REGSTR FUNCTION@<CRLF> $ 
26 104222 122 105 15 .ASCIZ @RESULT RESULT ADRESS COD $ 
27 104260 105 130 120 €H213: .ASCII @EXPCTD ACTUAL STATUS _TEST@<CRLF> $ 
28 104316 122 105 123 .ASCIZ @RESULT RESULT ADRESS REGSTR@ $ 
29 104355 101 103 124 €H220: .ASCII @ACTUAL REGSTR@<CRLF> $ 
30 104374 122 105 123 eASCIZ @RESULT ADRESS@ $ 
31 .EVEN : 
4 
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SSAGE STRINGS C 
1045 BUFFER: 
1045 BUFONE: .BLKW 58. 
10554 BUF TWO: .BLKW 58. 
104536 -=BUFFER 
104536 HELP 
196338 $08 eASCII <CRLF> 
10453 eASCII <CRLF> 
104540 114 111 ie ASCII @LIST OF TESTS@<CRLF> 
104556 055 055 055.—Cti«w ~=-a<CRLF> 
104574 124 061 011 =A ari TRANSFER TEST@<CRLF> 
104615 124 066 017. =«. aT CTOD TEST@<CRLF> 
04632 124 06 011. «. aT MASSBUS INITIALIZE TEST@<CRLF> 
04665 124 064 0171. —=«. ats CLEAR STUCK ACTIVE TEST@<CRLF> 
04720 124 065 011 LAS 
04752 124 0 oi . aT REGISTER setecr TEST@<CRLF 
060 . 
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Sc 
00 AS ¢ 
AS 
ASCI 
ASCI S 
AS : 
ASCI 6 
0 06 ASCI 
0 06 ASCI 
0 06 ASCI 1 
0 06 ASCII atl 
0 124 06 SCII aml ERROR REGISTER ESTa<CRLF> 
0523 124 06 064 .ASCII aT L 
05275 124 06 065 .ASCI atl OFFSET REGISTER SFER TEST@<CRLF> 
05337 124 06 066 .ASCII aT1 RROR ISTER #2 TRANSFER TEST@<CRLF> 
05403 124 06 067 <ASCII aT SERIAL NUMBER TEST@<CRLF> 
05432 124 06 060 ‘ASCII aT20 CONTROL BUS PARITY DETECTION TEST@<CRLF> 
05500 124 06 061 “ASCII aT21 CONTROL BUS PARITY GENERATION TEST@<CRLF> 
05547 124 062 062 ASCII aT2 RMDA,RMDC FAULT TESTa<CRLF> 
02600 124 062 063 .ASCII aT2 DISK ADDRESS TRANSFER TEST@<CRLF> 
05637 124 062 064 .ASCII aT24 DESIRED CYLINDER TRANSFER TEST@<CRLF> 
05702 124 062 065 :ASCII aT25 ILLEGAL REGISTER TESTa<CRLF> 
105734 124 062 066 .ASCII @126 RESET GO BY INIT TESTa<CRLF> 
105766 124 062 067 .ASCII aT27 DIA TIC MODE TEST@<CRLF> 
106017 124 063 060 :ASCII a730 MOL TESTa<CRLF> 
106034 124 063 061 :ASCII a731 WRITE LOCk TESTa<CRLF> 
106060 124 063 062 <ASCII aT3 DRIVE FAULT TEST@<CRLF> 
106105 124 063 063 <ASCII aT3 SEEK ERROR TEST F> 
106131 124 063 064 “ASCII a134 PIP TESTa<CRLF> 
106146 124 063 065 :ASCII a735 EBL TESTa<CRLF> 
106163 124 063 066 .ASCII ar36 LAST SECTOR, LAST TRACK TESTa<CRLF> 
106224 124 063 067 <ASCII aT RMDA COUNT TESTa<CRLF> 
106250 124 064 060 ‘SASCII @140 | RMDC COUNT TEST@<CRLF> 
106674 124 064 061 <ASCII a141  LBT TESTa<CRLF> 
106311 124 064 062 “ASCII a4 COMPOSITE ERROR TEST@<CRLF> 
106342 124 064 063 :ASCII aT4 WRITE GO TESTa<CRLF> 
106364 124 064 064 [ASCII @144 BRANCH MULTIPLEXOR TEST@<CRLF> 
106420 124 064 065 <ASCII a145  SET/RESET GO TESTa<CRLF> 
106446 124 064 066 .ASCII aT4 END 1 RESET GO TESTa<CRLF> 
106476 124 064 067 <ASCII aT4 SET PULSE TES : 
1065¢1 124 065 060 :ASCII a150  SET/RESET IVC TESTa<CRLF> 
106550 124 065 061 "ASCII a151 SET LSC TEST@ 
106571 124 065 6g “ASCII aT5 DECODE TEST@<CRLF> 
106611 124 065 063 :ASCII aT5 SET/RESET VOLUME VALID TESTa<CRLF> 
106651 124 065 064 .ASCII a@154 ILLEGAL FUNCTION TESTa<CRLF> 
106703 124 065 065 <cASCII a155 OCCUPIED TESTa<CRLF> 
106725 124 065 066 :ASCII @156 READ IN PRESET TEST@<CRLF> 
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38 106755 124 N65 067 .ASCII @757 RIP/RMOF TEST@<CRLF> 

5 10677 124 40 060 :ASCI] @760  RMDA/RMDC/RIP TESTa<CRLF> 

60 107026 124 166 061 <ASCI] @161 OFFSET COMMAND TEST@<CRLF> 

61 107056 124 066 062 .ASCII a6 RETURN TO CENTER TESTa@<CRLF> 

62 107119 124 066 063 .ASCII até RMDC CLEAR OFFSET TEST@<CRLF> 

63 10714 124 066 064 ASCII] @164 EBL CLEAR OFFSET TEST@<CRLF> 

64 107175 124 066 065 [ASCII @165 RUN AND GO TESTa<CRLF> 

65 107221 124 066 066 “ASCII aT66 SET IAE TESTa<CRLF> 

66 107242 124 066 067 .ASCII a6 SEARCH, SEEK, READ, WRITE TESTa<CRLF> A 
67 107305 124 067 060 “ASCII @T70 INVALID TRACK/SECTOR TESTa<CRLF> A 
68 107343 124 067 061 :ASCII @171 INVALID CYLINDER TEST@<CRLF> A 
69 107375 124 067 06¢ “ASCII aT? SET AOE TESTa<CRLF> A 
70 107416 124 067 063 .ASCII aT7 SET RMR TESTa<CRLF> A 
71 107437 124 067 064 ASCII a774  PGM STATUS CHECKa<CRLF> A 
72 107464 124 067 065 ASCII aT75  DVA/DPR STATUS CHECKa@<CRLF> A 
73 107515 124 067 066 ASCII a176 PORT REQUEST TEST, PART 1@<CRLF> Al 
74 107553 124 067 067 :ASCII aT77. PORT REQUEST TEST, PART 2a<CRLF> A 
75 107611 124 061 060 <ASCII a1100 T REQUEST TEST, PART 3a<CRLF> A 
76 107650 124 061 060 ‘ASCII a7101 RELEASE TESTa<CRLF> A 
77 107672 124 061 060 <ASCII aT10 ITE ATA TESTa@<CRLF> A 
78 107716 124 061 060 ‘ASCII @1103 RESET ATA BY GO TESTa<CRLF> A 
79 107750 124 061 060 “ASCII @7104 UNIT READY ATA TEST@<CRLF> A 
80 110001 124 061 060 :ASCII @7105 ERROR ATA TESTa<CRLF> A 
81 110025 124 061 060 ‘ASCII @7106 REGISTER TRANSFER ATA TEST@<CRLF> A 
82 110065 124 061 060 ‘ASCII aT107 PP SET ATA TESTa<CRLF> A 
83 110111 124 061 061 ASCII a1110 SET WLE TESTa<CRLF> A 
84 110133 124 061 061 :ASCII a1111 EXCEPTION TEST@<CRLF> A 
85 110157 124 061 061 ASCII @1112 RECALIBRATE TEST@<CRLF> A 
86 110205 124 061 061 <ASCII a7113 SEEK TEST@<CRLF> A 
87 110224 1246 061 061 .ASCII @7114 SEARCH TESTa<C A 
88 110245 124 061 061 <:ASCII @1115 SEARCH TIMEOUT TESTa<CRLF> A 
89 110276 124 061 061 .ASCII ariig DATA COMMAND TESTS (1)a<CRLF> A 
90 110332 124 061 061 [ASCII @1117 DATA COMMAND TESTS (2)a<CRLF> A 
91 110366 124 061 062 [ASCII @1120 DATA COMMAND TESTS (3)a@<CRLF> A 
92 110428 200 "ASCII <CRLF> A 
93 11042 117 120 105 ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF> A 
94 110457 055 055 055 ASCII] 4 Qennon nnn nnn nnn nnn nnn nneeene= <CRLF> A 
95 110513 123 127 111. ASCII a@SWITCH USE@<CRLF> 

96 110530 055 055 055 <cASCI] @------ «ss sewnene eee ee eeee-=- a@<CRLF> 

97 110565 040 040 061 <ASCII a 15 HALT ON ERROR@<CRLF> / 
98 110611 040 040 061 <ASCII @ 14 LOOP ON TESTa@<CRLF> A 
99 110634 040 040 061 <ASCII a 13 INHIBIT ERROR TYPEOQUTS@<CRLF> A 
100 110671 040 040 061 :ASCII @ 12 a<CRLF> A 
101 110700 040 040 061 <ASCII a 11 INHIBIT ITERATIONS@<CRLF> A 
102 110731 040 040 061 ASCII a 10 BELL ON ERROR@<CRLF> A 
103 110755 040 040 040 <ASCII a 9 LOOP ON ERROR@<CRLF> A 
104 111001 040 040 040 :ASCII a 8 OOP ON TEST IN SWR<7:0>a@<CRLF> A 
105 111040 040 040 040 :ASCII] a 7 TN128a<CRLF> E 
106 111054 040 040 040 :ASCII @ 6 TN64a<CRLF> E 
107 111067 040 040 040 cASCII a 5 TN32a<CRLF> E 
108 111102 040 040 040 :ASCII] a 4 TN16a<CRLF> E 
109 111115 040 040 040 :ASCII a 3 TN8a<CRLF> E 
110 111127 040 0 040 :ASCII a 2 TN4@<CRLF> E 
111 111141 040 040 040 :ASCII a 1 TN2a<CRLF> E 
1 111153 040 040 040 :ASCIZ a O TN1a<CRLF> 
114 000200 .END 200 
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C 
SYMBOL TABLE C 
ABASE = 176700 AUTSIZ 001326 CHRCNT 060527 ED1 104414 EH71 103361 3} 
ACDW1 = 000000 AVECTI= 001326 CKSWR = 060740 ED115 1044 EMS1 a7gese Bi 
ACDW2 = 000000 AVECT2= 000000 CLOCK 001536 ED130 104476 —MS10 73041 & 
000000 alg = 0004 CLR = 000040 ED 104424 —MS11 73104 ii 
ADDWO = 000000 Al = 0010 CMNSTA 00 ole ED220 104512 EMS12 73175 
ADDW1 = 000000 BADTMO 00456 CNSLO1 06311 ED 104430 EMS1 073233 8 
ADDW10= 000000 BAI = 00001 CNSLO2 063125 ED57 104436 EMS14 073322 
1= 000000 BB00 = 000001 CNSLO3 063167 ED65 104444 EMS15 07336 B 
ADDW12= 000000 BB01 = 000002 CNSLO4 063176 ED?1 104454 EMS16 73445 8 
ADDW13= 000000 BB02 = 000004 CNSLO7 063232 EFECC = 000020 EMS17 073526 8 
ADDW14= 000000 BB03 = 000010 CNSLOB 063374 EFT1 072410 EMS2 072307 8 
ADDW15= 000000 BB04 = 000020 CNSLO9 063375 EFT115 Ores 6 EMS20 073567 8 
= 000000 BB05 = 000040 CNTCLR 055156 EFT130 072430 EMS21 073633 8 
ADDW3 = 000000 BB06 = 000100 C 063061 EFT132 072432 EMS22 073712 8 
ADDW4 = 000000 BB07 = 000200 CONT = 000100 EFT2 072412 EMS23. 073757 8 
ADDWS = 000000 BB08 = 000400 CPSAVE 05770 EFT220 072434 EMS24 074035 8 
= 000000 BB09 = 001000 cR = 00001 EFT5 072414 EMS25 074114 
ADDW7 = 000000 BITO = 000001 CRLF = 000200 EFTS7 072416 EMS250 077015 8 
ADDW8 = 000000 BITOO = 000001 CYLMSK= 001777 EFT65 072420 EMS251 077053 
ADDW9 = 000000 BITO1 = 000002 DBCK = 100000 EFT71 072422 EMS252 077117 8 
ADEVCT= 000000 BITO2 = 000004 DBEN = 040000 EFT74 072424 EMS253 077152 E 
ADEVM = 000000 BITO3 = 000010 L = 002000 EF1 104516 EMS254 077205 E 
= 000001 BIT04 = 000020 DCK = 100000 EF130 104530 EMS255 077246 E 
AENV = 000000 1T05 = 000040 DDISP = 177570 EF2 104521 EMS256 077310 E 
AENVM = 000000 T06 = 000100 EBL = 020000 EFS 104522 EMS257 07734 E 
AFATAL= 000000 BITO7 = 000200 DISPLA 001156 EF57 104524 EMS26 074172 E 
ALL 063050 BITO8 = 000400 DISPRE 000174 EHT1 072262 EMS260 077374 6 
1= 000000 BITO9 = 001000 DLT = 100000 EHT115 072322 EMS261 077425 8 
AMADR2= 000000 BIT1 = 000002 DMD = 000001 EHT130 072326 EMS262 077464 8 
= 000000 BIT10 = 002000 DPE = 000010 EHT132 072332 EMS27 = 074251 6 
R4= 000000 BIT11 = 004000 DPEHI = 040000 HT142 072336 EMS3 072556 8 
AMAMS1= 000000 BIT12 = 010000 DPELO = 020000 EHT145 072342 EMS30 074315 g 
S2= 000000 BIT13 = 020000 DPR = 000400 EHT150 072346 EMS300 077527 g 
AMAMS3= 000000 BIT14 = 040000 DRIVES 063416 HT2 072266 EMS301 077545 E 
= 000000 BIT15 = 100000 DRQ = 004000 213 (07235 EMS302 077570 E 
= 000000 BIT? = 000004 DRVCLR= 000010 EHT220 072356 EMS303 077615 E 
AMSGLG= 000000 BIT3 = 000010 DRY = 000200 5 Orgel EMS304 077626 E 
AMSGTY= 000000 BIT4 = 000020 DSWR = 177570 EHT57 072302 EMS306 077635 E 
AMTYP1= 000000 BITS = 000040 DTE = 010000 EHT65 072306 EMS307 0776 E 
AMTYP2= 000000 BIT6 = 000100 DULPRT= 024026 HT? = 072276 31 074375 E 
AMTYP3= 000000 BIT7 = 000200 DVA = 004000 EHT71 072312 EMS310 077712 E 
AMTYP4= 000000 BIT8 = 000400 DVC == 000200 EHT74 072516 EMS311 077727 E 
AOE = 001000 BIT9 = 001000 EBL = 020000 EH1 10307 EMS31¢ 077773 E 
APASS = 000000 BLNKS1 063635 ECH = 000100 EH115 103436 EMS313 100031 E 
= BLNKS2 063634 ECI = 004000 EH130 10353 EMS314 100062 ( 
APRIOR= BLNKS3 063633 ECRC = 001000 EH132 © 103651 EMS315 100111 
APTCSU= 000040 BLNKS4 063632 EDT1 072362 EH14 103747 EMS316 100137 
APTENV= 1 BOTAD 060524 EDT115 072400 EH14 104045 EMS317 100160 
APTSIZ= 000200 BOTFLG 060526 EDT130 072402 EH150 104160 EMS32 074446 
TSPO= 000100 BPTVEC= 000014 EDT132 072404 EH2 10315 EMS320 100200 
ASWREG= 000000 BSE = 100000 EDT 072364 EH213 104260 EMS321 100220 
ATA = 100000 BUFFER 104536 EDT220 072406 EH220 104355 EMS3. ¢ 100660 
ATESTN= 900000 BUFONE 104536 EDT 072366 EH 103163 EMS3. 100260 
ATNMSK= 00037 BUFTWO 105542 EDT57 072370 FHS 103176 EMS324 190077 
ATNTBL 063740 cc = 004000 EDTGS 072372 EH57 10 3 EMS325 100317 
AUNIT = 000000 CH = 002000 EDT71 072374 EH65 103305 EMS326 6100330 
AUSWR = 000000 CHGADR 001330 EDT74 072376 EH? 103230 EMS327 100340 
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SYMBOL TABLE 
EMS 074526 EMS43. (0751 EMT112 06645 EMT175 070116 EMT257 071552 
Ens 30 100 g EMS44 39075 09 EMT HIS $6e73 EMT176 070136 EMT 36 065074 
cay 1 100 EMS45 07525 EMT114 066516 EMT177 070154 EMT260 157 
EMS 3 1002 EMS46 §=07552 EMT115 pe33? EMT 064404 EMT261 07162 
EMSS. 10043 EMS4 o7 3007 ent its 66564 EMT20 064744 EMT26 71646 
EMS334 100447 EMSS o7¢6 & EMT11 604 EMT200 070156 EMT263 071664 
EMS335 100457 EMS5O 075447 EMT1 064620 EMT201 adhe MT264 071702 
att] 1S0206 EMSSOO0 101754 EMT120 066624 EMT20 70212 EMT265 071726 
EMS337 100521 EMS5O1 102115 EMT127 066650 EMT203 070230 EMT266 071744 
EMS34 074556 EMSSO2 102142 EMT1 § 066670 EMT204 070252 EMT267 071762 
EMS340 100535 EMS50 Iss s EMT1 066710 EMT205 070272 MT27?7 065126 
EMS341 10054 EMS504 10223 EMT124 066734 EMT206 070312 EMT270 071776 
EMS342 10055 EMS5SO5 102272 EMT125 066752 EMT207 070342 EMT271 072022 
EMS343 100607 EMSS06 102345 EMT126 066772 alld: B6a 768 enters 072046 
EMS344 100623 EMS5SO7 102402 patie” 067010 EMT210 070356 EMT275 072064 
EMS345 100652 EMS 075516 EMT1 64636 EMT211 070374 EMT274 072102 
ate 100700 EMS510 eee EMT130 067034 EMT212 070412 EMT275 072120 
EMS347 100716 EMS511 10254 EMT131 067052 EMT213 070424 EMT276 072140 
EMS3S5 074605 EMSS2 075565 EMT132 067070 EMT214 070454 EMT277 072156 
EMS350 100737 EMSS3 075626 EMT133 067110 EMT215 070466 EMTS «© 064432 
EMS351 100744 EMS5S4 075667 EMT134 067130 EMT216 07050 EMT3O 065140 
EMS352 100762 EMSSS } 075744 EMT135 067144 ent ey? 07052 EMT300 072202 
EMS353 100776 EMSS6 076022 EMT136 067162 EMT22 065004 EMT301 072226 
EMS354 101022 EMSS? 076115 EMT137 067174 EMT220 070536 EMT302 072244 
EMS355 101055 EMS6 =: 072724 EMT 064654 EMT221 070554 EMT31 065154 
EMS356 101077 EMS60 076201 EMT140 067212 EMT222 070572 EMT32 065170 
EMS357 101117 EMS600 102644 EMT141 067232 EMT223 070610 EMT35 065204 
EMS36 9074647 EMS601 102674 EMT142 067246 EMT224 070626 065222 
EMS360 101141 EMS602 102714 EMT143 067264 EMT225 0646 EMT35 065240 
EMS361 101167 EMS603 102755 EMT144 067300 EMT226 070670 
EMS362 101215 EMS604 102776 EMT145 067322 ent ee? 70706 EMT37 065270 
EMS363 101236 EMS605 103025 EMT146 067344 T2 065020 064452 
EMS364 101253 EMS606 103041 EMT147 067362 EMT230 070724 EMT40 065304 
EMS365 af EMS607 103061 EMT15 064672 EMT231 070742 EMT41 065324 
EMS366 101301 EMS61 076623 EMT150 067374 EATS 70756 EMT42 065340 
EMS50/ 101366 EAS 076526 -EMTISi 067476 EMT 23. 871008 EMT43 065364 i 
EMS37_ 074677 EMS65 076407 enTI36 067430 EMT234 07102 EMT44 065376 
EMS370 101374 EMS64 076447 EMT153 067444 EMT235 071050 EMT45 065412 
EMS3S71 101411 EMS65 076517 EMT154 067464 ent ese 071070 EMT46 §9 0654 
EMS372 101440 EMS66 376260 EMT155 067504 EMT23 Or hes EMT47 065442 
EMS373 101472 EMS67 07663 EMT156 067522 EMT24 06504 MT5 06447 
EMSS74 101476 EMS? =: 072770 EMT157 067544 EMT240 071142 EMTSO 065464 
EMS375 101527 EMS70 076747 EMT16 064710 EMT241 071166 EMTS1 065506 
EMS376 101543 EMTVEC= 300g EMT160 06756 EMT242 071212 EAT 36 065526 
EMS377 101557 EMT1 064376 7161 06761 EMT243 071236 EMTS 065542 
EMS4 Or e6e3 EMT10 064368 EMT162 06763 EMT244 071262 EMT54 065556 
EMS4O0 8 074730 EMT1 66200 EMT165 067646 EMT245 071500 EMT5S 065576 
EMS400 101570 EMT101 yeasts EMT164 067670 EMT246 07131 EMT56 662616 
EMS401 101605 cnr IRS 66240 EMT165 067712 T2467 07134 EMTS? 06563 
MS40. 101666 eat te 065669 EAT 198 67736 EMT25 96306 MT6 968249 
EMS4U3 i0i03i EMT104 060504 cMTi 07756 EMTe50 8 1360 EMT&O 5€46 
EMS404 101672 EMT105 066324 EMT1 oh758 EMT251 Abe's EMT61 5662 
EMS405 101711 EMT106 066344 EMT170 5008 ENT S26 071430 EMT6 e220s 
EMS4 101 ee! EMT107 066370 EMT171 07001 EMT25 851233 EMT6 a06e 
EMS407 1017. EMT11 06460. EAT Ie6 ope EMT254 071472 EMT64 657 
EMS41 075006 EMT110 06641 EMT173 07004 EMT255 071510 EMT65 065750 
EMS42 075054 EMT111 432 EMT174 070066 EMT256 071534 EMT66 065764 
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EMT67 ILF54 = 00056 Pe 01000 QUES 063055 R11 1352 

EMT ILF56 = 00005 MWD = 00001 D = 000070 RMERIO 00142 

EMT70 06601 ILF64 = = 000010 RDCHR = 104411 R2 = 

EMT71 0660 ILFG6 = 066 MXF = 901000 DLIN = 106612 RMER2I 1400 

ENTZe ILF74 = 000074 N 0636 6 RDOCT = 10441 RMER2ZO 001454 

EMT 0661 ILF76 = 7 NDTMSK= 11576 DY = 600700 = 000036 

EMT74 066126 ILR = 09 NED = 610000 READY 00 96 RMHRI 001374 

EMT75 0661 ILRG5S 00 NEM = 04000 EADY1 9079 4 RMHRO 001450 

EMT76 066150 ILRGS2= 00005 NONE 06344 RECAL = 0006 RMLA 900020 

EMT 066166 ILRG54= 000054 NOP = 000000 RESREG= 10441 RMLAI 001356 

ENRGDT 376 ILRG56= 900056 NOTAVL 063566 RESVEC= 000010 RMLAO 001432 

EQUALS 063046 IL 06 NOTPRS 063551 REX = 010000 RMMR1 = 24 

ERR = 9009 ILRG&2= 000062 NOTRM 7 RG = 040000 RMMRII 001362 

ERRNMB 06052 ILRG646= 000064 NSA = 0 RGDTPT 063750 RMMR10 001436 

ERROR = 104000 ILRG66= 0D0066 occ = 0 RH = 000072 RMMR2 = 000040 

ERRTYP 057704 ILRG70= 000070 OFD = 0 RIP 00020 RMMR21 001376 

ERRVEC= 000004 ILRG72= 000072 OFF SET= RMMR20 00145 

RTYOO 060530 ILRG74= 000074 OM = =s- =: 000 $ RMOF = 32 

ERTYO1 060535 ILRG76= 000076 ONES RMOFI 001370 

ERTYO2 060545 IOTVEC= 000020 OPE = RMOFO 001444 

ERTYOS 060554 IPCKO = 00000 pel = RMR = 000004 

ERTYO4 060562 IPCK1 = 000002 OR = 600050 

ERTYOS 060565 IPCKe = 000004 PACACK= RMSNI 001 

ESRC = 004000 IPCK3 = 000010 PAKACK= RMSNO 001442 
IR = 000100 PAR = 000002 

FMT IRP 054702 PAT = 001340 
Ivc = 010000 PCLOCK RMWCO 001414 
LBC }~6=. =_-:«¢002000 PCOUNT = 100000 
LBT = 002000 PDA = R = 040000 
LCLOCK 054600 PFECH RTC = Sooo 
te. Googe Bee “ieee 
LOD 063534 prectg K= 000377 
LS 000004 PFECH4 SAVREG= 104414 
tees fb 00S - F sAi6 = 000029 

= = = 

LSTOP tetas PHA = SA2 2 
LSTRK PIP = 
MCLK = 4000 PIRQ = 
MCPE = 0 PIRQVE 
MDF = PLCLK 
MDPE = PLFS = 
KI = PLSTP 
MIXED PRO = 
Moc = PRI = 
MOH = PR = 
MOL = PR s C 
MRD = PRG = D 
MR1AAA= PRS = 4 0 
es = PR s 0 
msc = PR = 000 0 
MSDRVS PSs 0 
MSE = PSEL = D 
MSEN = PSTOP 0 
MSER = PSW = (1777 0 
MSGDRV PUTBUF att t 
MSHELP PURVEC= 2 
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VPC 
SSWR 1 STKS 00 
SSWREG 001244 STKSRV 06100 


- ABS. 111166 Oot 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 62208 WORDS ( 243 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
~A: CZRNBA/C=A:CZRNBA.DOC ,CZRNBA,SYSMAC/M 
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